(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    171793,       4335]
NotebookOptionsPosition[    136999,       3612]
NotebookOutlinePosition[    137733,       3637]
CellTagsIndexPosition[    137652,       3632]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"be2fa13a-dd0f-41b6-856c-8d693cab100d"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"ef271c65-0520-4842-a211-b8193a529c48"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"1afbc27d-816e-4eb3-afe2-93d59c5f2e46"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"568b62fd-7082-4953-bbb5-2d97ff1d3587"]
}], "History",
 CellChangeTimes->{{3.822293323978645*^9, 3.8222933241711607`*^9}},
 CellID->1247902091,ExpressionUUID->"ff69b119-4755-4390-b284-a916685796fe"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"e9437d19-95aa-4084-8c99-52e7e31e28cd"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"a9041485-cbeb-4084-b73f-ed6c1bc82224"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->122268461,ExpressionUUID->"e89cdb66-59d9-4831-9b1a-2bceac5c3eb4"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->60582034,ExpressionUUID->"6361c56c-1e94-4518-b2ed-d566c357b3e8"],

Cell["RefpropLink/ref/RefProp", "Categorization",
 CellLabel->"URI",
 CellID->323239901,ExpressionUUID->"0bfa938a-270c-431b-9624-b5a416f21c18"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"4358f7dc-847f-4497-bbc8-b099f64bfa29"],

Cell["REFPROP", "Keywords",
 CellChangeTimes->{{3.8222837308666515`*^9, 3.8222837343343906`*^9}},
 CellID->1164421360,ExpressionUUID->"e87acf2b-9abe-4a2d-a750-0de825f42504"],

Cell["Thermodynamic", "Keywords",
 CellChangeTimes->{{3.8222837308666515`*^9, 3.8222837507574167`*^9}},
 CellID->57215434,ExpressionUUID->"575e45b5-cb06-4e8f-b763-8835c365fb2e"],

Cell["Transport", "Keywords",
 CellChangeTimes->{{3.8222837308666515`*^9, 3.8222837531949277`*^9}},
 CellID->102187194,ExpressionUUID->"059b9f90-7086-45be-ab43-7492ddb7517c"],

Cell["Properties", "Keywords",
 CellChangeTimes->{{3.8222837308666515`*^9, 3.822283761941501*^9}},
 CellID->15905788,ExpressionUUID->"97eb740d-d01e-4b50-b2f6-b48a1a2a8261"],

Cell["Materials", "Keywords",
 CellChangeTimes->{{3.8222837308666515`*^9, 3.822283764202484*^9}},
 CellID->232218335,ExpressionUUID->"414da9ac-2707-4943-8fd3-c3832430ecb7"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"4fa27d66-fd91-4d33-b999-d3623105588c"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"120efc8d-99e2-4a40-8689-76edd23070eb"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"2a467744-056b-4aec-836b-abd1975f447c"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"81a09489-6ffc-44ac-aa78-207669ad275c"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"aabb01a6-ea44-4b5c-abb5-2b32885f8c0f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"990165ef-dcfa-4d8c-8d0d-f750d4a39166"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8222836751636496`*^9, 3.8222836815545425`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"06431f48-dfc4-4394-aa7b-17d2abfb655b"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.822283686811453*^9, 3.822283688634613*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"6fde0a76-c41a-457e-b0cf-3425e3b1d7e8"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8222836925072484`*^9, 3.8222836944589977`*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"cfc42036-50f3-4101-8693-3850afd8bef8"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"409f7690-6ead-419d-b0be-fca713851767"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"b43a75c4-4b6c-4520-947f-15db1eb2acc5"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"bf1cfcd4-3c5e-4070-9d23-7bd389b31f46"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"58f9e3df-d6e3-4797-9f5b-ddb6f0f0be8b"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"dfcca5c1-09f5-4dde-996f-67f4a11abe4d"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"2fbba7ea-4fd7-49cb-bb5a-85869b15039d"]
}, Closed]],

Cell[CellGroupData[{

Cell["RefProp", "ObjectName",
 CellID->1224892054,ExpressionUUID->"fd0729c5-4de6-4e76-a28f-7b03895db604"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"fc7d1daa-0870-4160-b41d-69c64072a854"],
 Cell[BoxData[
  RowBox[{"RefProp", "[", 
   RowBox[{
    StyleBox["hFld", "TI"], ",", 
    StyleBox["hIn", "TI"], ",", 
    StyleBox["hOut", "TI"], ",", 
    StyleBox["a", "TI"], ",", 
    StyleBox["b", "TI"], ",", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "3331aad5-412b-4b06-a8c6-a6624f8225c9"],
 "\[LineSeparator]is a multi-purpose function which takes up to two inputs, ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "c7f09a61-12bf-4517-b3fd-d9dd658fc14f"],
 " & ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "c11ccec7-7c17-45f1-a3ba-2127f52c5ad0"],
 ", as designated by the string, ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "4abbfa1f-4c0f-41ed-bf31-40c4ef443a89"],
 ". Fluid properties, specified in ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "f8c7d534-a878-47d2-ae1b-91ae5b201dc5"],
 ", are calculated and returned for the fluid specified in ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "62dcf4a2-0a05-4c2a-8251-bf54b0c6dc48"],
 ". If ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "35810ec5-48b5-419b-9d35-ba64d8c85c66"],
 " is a mixture, the molar composition is passed in ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "ce45ba19-64ac-4df0-8edb-5ff6a3d04398"],
 ". \n",
 Cell["   ", "ModInfo",ExpressionUUID->"9123538b-acef-4ad2-8b5f-1add349a3aab"],
 Cell[BoxData[
  RowBox[{"RefProp", "[", 
   RowBox[{
    StyleBox["hFld", "TI"], ",", 
    StyleBox["hIn", "TI"], ",", 
    StyleBox["hOut", "TI"], ",", 
    StyleBox["a", "TI"], ",", 
    StyleBox["b", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "4b6b847c-5ea5-4bd6-8c01-b7cc8ae37862"],
 "\[LineSeparator]is the same as above, but for pure fluids z can be omitted. \
\n",
 Cell["   ", "ModInfo",ExpressionUUID->"3123247b-0bb2-432e-a590-89d643bcd7cc"],
 Cell[BoxData[
  RowBox[{"RefProp", "[", 
   RowBox[{
    StyleBox["hIn", "TI"], ",", 
    StyleBox["hOut", "TI"], ",", 
    StyleBox["a", "TI"], ",", 
    StyleBox["b", "TI"], ",", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "d0f58988-38ad-475b-8b0a-4d2c5072978e"],
 "\[LineSeparator]is the same as above, but subsequent calls for the same \
fluid/mixture can omit the fluid string, hFld."
}], "Usage",
 CellChangeTimes->{{3.8222843420660133`*^9, 3.822284361051233*^9}, {
  3.822284500170125*^9, 
  3.8222846456271553`*^9}},ExpressionUUID->"092f91e1-7846-410d-88a0-\
07bada8e6d6a"],

Cell["\<\
Calculate the properties identified in the hOut string for the inputs \
specified in the hIn string for the fluid or mixture given in the hFld \
string. The unit identifier for the properties should be passed in the iUnits \
variable (as described below). Compositions can be sent as mole fractions or \
mass fractions in the z array depending on the value of iMass.\
\>", "Notes",
 CellChangeTimes->{{3.822283896945407*^9, 3.822283912194683*^9}},
 CellID->624753498,ExpressionUUID->"0eac8219-051d-446a-9434-01ebf7fc6ec0"],

Cell[TextData[{
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 " Several items must be considered before using this routine. The most \
important is the ",
 StyleBox["speed of calculations",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ".  The original Fortran code (Legacy API) that called dedicated functions \
such as ",
 Cell[BoxData[
  ButtonBox["tprho",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Tprho"]], "InlineFormula",
  ExpressionUUID->"e590d788-b2be-4938-adba-00c0a09de627"],
 ", ",
 Cell[BoxData[
  ButtonBox["tpflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Tpflsh"]], "InlineFormula",
  ExpressionUUID->"e0295dd0-6dd3-4027-b744-94a2544b76ed"],
 ", ",
 Cell[BoxData[
  ButtonBox["phflsh",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Phflsh"]], "InlineFormula",
  ExpressionUUID->"b96bdf2e-27e8-4d55-8dde-f0c1e5e379ba"],
 ", and so on, as well as the non-iterative functions such as ",
 Cell[BoxData[
  ButtonBox["therm",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Therm"]], "InlineFormula",
  ExpressionUUID->"b2fc4374-f1b6-498a-968c-289d58b5c0ca"],
 " and ",
 Cell[BoxData[
 "trnprp"], "InlineFormula",ExpressionUUID->
  "a6b16203-449d-40a0-b348-1c56e4a90556"],
 ", requires very few (or no) string comparisons and are quite fast.  \
Multiple string comparisons are made to determine the inputs and outputs the \
user has selected.  Due to the limitation of Fortran in string parsing, this \
will cause a dramatic increase in the time required to make the calculations, \
such as two to three times as long as the dedicated functions.  Thus the ease \
of use of this REFPROP subroutine versus the speed of calculation from the \
older routines must be considered before developing any application."
}], "Notes",
 CellChangeTimes->{{3.8222841993776336`*^9, 3.8222842392829285`*^9}, {
  3.822284454306802*^9, 3.822284479075553*^9}, {3.8222893328606863`*^9, 
  3.8222894417214875`*^9}, {3.8222894850934815`*^9, 3.822289620293888*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellID->144423870,ExpressionUUID->"499843e2-552b-45a1-a29f-40129f21cb94"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "3bd8533a-e384-40be-a6df-64769c8c88fe"],
 ", if using a ",
 StyleBox["pure fluid",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", contains the name string of the fluid file (with path if needed).  For a ",
 StyleBox["mixture",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", it contains the names of the constituents in the mixture separated by \
semicolons or asterisks.  "
}], "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.822288611056299*^9, 3.8222886693204575`*^9}, {
  3.822288707574142*^9, 3.8222887461579137`*^9}, {3.822288781789609*^9, 
  3.8222888679501557`*^9}, {3.822288916070448*^9, 3.822288962112299*^9}},
 CellID->77125597,ExpressionUUID->"25dcf315-80e5-40cb-8952-325d6ae34775"],

Cell[TextData[{
 "Once the routine has been called with ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "2ef39e4c-86c7-4220-b10d-8bf4c983f2a0"],
 " set to the desired fluids, it can be omitted for all other calls that use \
the same fluid(s).  "
}], "Notes",
 CellChangeTimes->{{3.822288611056299*^9, 3.8222886693204575`*^9}, {
   3.822288707574142*^9, 3.8222887461579137`*^9}, {3.822288781789609*^9, 
   3.8222888679501557`*^9}, {3.822288916070448*^9, 3.82228896729646*^9}, 
   3.822289656526968*^9},
 CellID->447888874,ExpressionUUID->"477e81c2-d1b0-4a31-8787-5b0292f1ff5e"],

Cell["\<\
For a predefined mixture, the extension \[OpenCurlyDoubleQuote].mix\
\[CloseCurlyDoubleQuote] must be included.  For a pseudo-pure fluid, the \
extension \".ppf\" must be included.\
\>", "Notes",
 CellChangeTimes->{{3.822288611056299*^9, 3.8222886693204575`*^9}, {
  3.822288707574142*^9, 3.8222887461579137`*^9}, {3.822288781789609*^9, 
  3.8222888679501557`*^9}, {3.822288916070448*^9, 3.8222889441024985`*^9}, {
  3.8222889869598665`*^9, 3.8222889869598665`*^9}, {3.8222892081123223`*^9, 
  3.8222892364306097`*^9}},
 CellID->508579624,ExpressionUUID->"52df1cc0-8c8f-4de0-af8d-43560c66680a"],

Cell[TextData[{
 "If the composition is included in the ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "44475247-b641-471b-8cd0-bfb56018cc95"],
 " variable, or if a predefined mixture is selected, the composition will be \
returned in the ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "04de2a19-b0fe-4c78-8e83-55d30edfcffc"],
 " array (on a molar or mass basis depending on iMass). That composition (or \
other compositions) must be sent in ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "dc5211e1-f58d-4e28-8329-d88ff5207b76"],
 " in all subsequent calls to this routine. "
}], "Notes",
 CellChangeTimes->{{3.822288611056299*^9, 3.8222886693204575`*^9}, {
  3.822288707574142*^9, 3.8222887461579137`*^9}, {3.822288781789609*^9, 
  3.8222888679501557`*^9}, {3.822288916070448*^9, 3.8222889441024985`*^9}, {
  3.8222890243897543`*^9, 3.822289027856453*^9}, {3.8222891421617203`*^9, 
  3.8222891607400284`*^9}},
 CellID->764629902,ExpressionUUID->"d272477a-f42f-464c-96e2-2cc06e783983"],

Cell[TextData[{
 StyleBox["Note:",
  FontWeight->"Bold"],
 " The speed of the program will be increased (sometimes substantially) if \
you call this routine with the name of the fluid only once; and then never \
again unless your fluid or mixture changes. If the composition changes, send \
the new composition in the ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "717b8844-4a96-4fba-918e-aadc570819b5"],
 " array rather then sending a new string in the ",
 Cell[BoxData[
  StyleBox["hfld", "TI"]], "InlineFormula",ExpressionUUID->
  "e08cf51c-7d7e-4864-baa9-ac78f8a4bdce"],
 " variable.  Fluids and mixtures can also be set independently using the ",
 Cell[BoxData[
  ButtonBox["SetFluids",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetFluids"]], "InlineFormula",
  ExpressionUUID->"6eb6796a-51ca-4c1a-8db4-04e1ead015a0"],
 " and ",
 Cell[BoxData[
  ButtonBox["SetMixture",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetMixture"]], "InlineFormula",
  ExpressionUUID->"c4e365ab-d7cc-4de4-b084-50a83322feae"],
 " functions and then omitted from all calls to RefProp."
}], "Notes",
 CellChangeTimes->{{3.822288611056299*^9, 3.8222886693204575`*^9}, {
  3.822288707574142*^9, 3.8222887461579137`*^9}, {3.822288781789609*^9, 
  3.8222888679501557`*^9}, {3.822288916070448*^9, 3.8222889441024985`*^9}, {
  3.8222890243897543`*^9, 3.822289133272529*^9}, {3.822372411035612*^9, 
  3.822372532829819*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellID->158012527,ExpressionUUID->"e9100c59-08c0-44da-8c2a-8f76453dbc6e"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "7ddd6c08-c920-4716-8b3e-02980baa16c9"],
 " typically contains a character code that specifies the input value types \
that define the state point.  Valid codes are T, P, D, E, H, S, and Q \
(temperature, pressure, density, energy, enthalpy, entropy, and quality).  \
Two of these should be sent together to identify the contents of the ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "456a3622-2201-4612-b4b9-a3258ac8fb0b"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "f181f467-fb0a-4312-a57a-459cb1127386"],
 " variables. For example, \[OpenCurlyQuote]TP\[CloseCurlyQuote] would \
indicate inputs of temperature and pressure, and \[OpenCurlyQuote]TQ\
\[CloseCurlyQuote] would indicate inputs of temperature and quality.  Valid \
input pairs are: TP, TD, TE, TH, TS, TQ, PD, PE, PH, PS, PQ, DE, DH, DS, DQ, \
ES, EQ, HS, HQ, SQ (or the inverse of any of these, e.g., QT) (",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "2532cc1d-8073-411e-ba04-1c62cbb6c341"],
 " is not case sensitive, e.g., \[OpenCurlyQuote]TQ\[CloseCurlyQuote] = \
\[OpenCurlyQuote]tq\[CloseCurlyQuote]).  The shortcuts Tsat and Psat can be \
used to specify a saturation state for the liquid for a pure fluid.  To \
return, for example, the saturated vapor density, Dvap would be used as an \
output variable."
}], "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.822290316413947*^9, 3.822290445789912*^9}, {
  3.822290479460846*^9, 3.822290561077573*^9}, {3.8222906125000057`*^9, 
  3.822290675596243*^9}, {3.8222910699794197`*^9, 3.822291070595771*^9}, {
  3.822291368262601*^9, 3.822291370445789*^9}, {3.8222921531213374`*^9, 
  3.82229215601862*^9}},
 CellID->336978024,ExpressionUUID->"96654bcb-b8f7-47da-8ea3-2cb4fa23cdf4"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "2f3a7358-8f40-45f5-9716-58d0161989a6"],
 " is a string that specifies one or more numeric values (properties) to be \
returned, but may also specify a flag that returns string output.  For flags \
used to obtain a value of a particular fluid in a mixture, the component \
number should be added after the command, such as NAME(3)\nor FDIR(1).  For \
numeric values, multiple inputs can be requested here, and must be separated \
by spaces, commas, semicolons, or bars, but these separators should not be \
mixed.  See the examples below and the REFPROP DLL documentation (subroutine \
ALLPROPS) for a complete list of the property values that may be returned."
}], "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.822291469022127*^9, 3.822291475992478*^9}, {
  3.8222916114212236`*^9, 3.822291683565296*^9}, {3.822291717786729*^9, 
  3.822291723243133*^9}, {3.8222917605792947`*^9, 3.8222918987387342`*^9}},
 CellID->14894828,ExpressionUUID->"bbe2075e-3619-4cae-9ccc-e5aa3bc5df41"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "903054d9-fc2a-4511-98f8-7a6efc23a981"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "990d7c91-9b6b-4dfa-a0e9-3686b92fee3f"],
 " are numeric values for the input properties specified in the hIn string.  \
The order of the properties being sent to the routine in the variables ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "1115a190-f49b-49ad-b75d-e62d9a1668c7"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "64269527-b26f-4022-ad1c-75ace46b3c8e"],
 " must be the same as the letter codes sent to ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "026c5f6c-1c91-45b1-9c49-b0eba51eeee3"],
 "; for example, if ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "6111888b-46c1-4456-9df0-3eb5778db5c9"],
 " is \[OpenCurlyQuote]QT\[CloseCurlyQuote], then ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "8cb51340-1ce1-4114-ace3-80943a6b13ef"],
 " =q and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "02271228-94c6-4dfd-a6d1-c3dacdf484e2"],
 " =T.  If passed as ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "22077516-6ed7-48f4-b11a-71364d9a0d88"],
 " values with units (recommended), ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d62c2cd3-1356-45ee-a25d-fcd28914ba2f"],
 " values (with appropriate units applied) will be returned.  If non-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "92fc6601-90cf-4dc4-9028-e450e178bf05"],
 " values are passed in ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "66b11e1f-4202-4dcb-af6b-5b82b572f647"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "38c682b5-999a-41e8-bc0a-02949d46953d"],
 ", they must be converted first to the default REFPROP unit system, or the \
unit system specified by the iUnits option.  Results will also be returned as \
non-quantities in the same unit system.  If the ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "99b934f8-714a-4393-b1fb-abda62af9678"],
 " or ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "b356bc8f-e106-4009-adec-06d7ef22fac5"],
 " codes do not require state point inputs, ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "1bafeb98-cdd0-4454-8108-111740a3edd5"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "633ce121-f407-48ff-aa1b-91769a06a206"],
 " will be ignored and can be set to 0 or any arbitrary number."
}], "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.8222920368124285`*^9, 3.8222921161252913`*^9}, {
  3.8222921629311295`*^9, 3.822292247089999*^9}, {3.8222922779723997`*^9, 
  3.822292303067277*^9}, {3.82229234063582*^9, 3.8222926197323227`*^9}, {
  3.8222932037143145`*^9, 3.8222932902678375`*^9}},
 CellID->809966067,ExpressionUUID->"efae783d-f332-49b0-935a-143bef5920c7"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "8c01d9d7-93f0-4eb0-a42e-6a2e557d0ec0"],
 " is typically an array (List) of the mixture molar composition, provided as \
an input for physical property calculations.  For pure fluids ( ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "39a2ba74-315a-499c-8aed-70acf891040c"],
 " = {1.0} ), or requests for string results, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "2ab4ade4-8391-429f-81a0-935e5b308d4c"],
 " can be omitted from the parameter list.  If a ",
 StyleBox["pre-defined mixture",
  FontSlant->"Italic"],
 " is specified in ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "34cd3cb9-46b6-4d57-896c-329da4914e55"],
 ", the molar composition array will be returned in ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "b6996d2e-ec21-4f66-ab55-f7ff376e3fb5"],
 " as an output value at the end of the ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "e552d20e-1c2b-4ba7-9bc7-ab9a61ca2363"],
 " of return values requested."
}], "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.8222927916763935`*^9, 3.8222930560512695`*^9}, {
  3.822293110418888*^9, 3.822293194912895*^9}},
 CellID->34620489,ExpressionUUID->"9cac60c5-f47f-4f60-9d34-5d566d4de469"],

Cell["\<\
In addition to the parameter list, the following options can be given (see \
details and examples below under the Options section): \
\>", "Notes",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellChangeTimes->{{3.822284026498953*^9, 3.8222840474668703`*^9}, {
  3.8222842646022058`*^9, 3.8222843046351175`*^9}, {3.8222861459447966`*^9, 
  3.822286148128952*^9}, {3.8222908031651025`*^9, 
  3.8222908039888945`*^9}},ExpressionUUID->"35a4f9fe-6415-402d-bbd8-\
cf2092238dd8"],

Cell[BoxData[GridBox[{
   {Cell["   ", "ModInfo",ExpressionUUID->
     "97730773-0285-4e76-97a6-be4672468458"], 
    StyleBox[
     RowBox[{"Option", " ", "Name"}],
     FontFamily->"Verdana",
     FontSize->12,
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}], 
    StyleBox["Default",
     FontFamily->"Verdana",
     FontSize->12,
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}], Cell[TextData[StyleBox[
    "Description",
     FontSize->12,
     FontWeight->"Bold",
     FontVariations->{"Underline"->True},
     GridBoxOptions->{
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
       "Rows" -> {False, {False}, False}, "RowsIndexed" -> {}}}]], 
     "TableText",ExpressionUUID->"3ec68c64-99c6-492e-abc7-41457c351a13"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "d2248bb7-5a84-40c2-8736-6234cc0545e5"], 
    ButtonBox["iUnits",
     BaseStyle->"Link",
     ButtonData->"paclet:RefpropLinkPrivate/ref/RefpropLink`Private`iUnits"], 
    "0", Cell[
    "Unit system to be used for the input and output properties.", 
     "TableText",ExpressionUUID->"164a45ae-3acd-400b-9d0b-394ba1709a7c"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "e69fed6e-42a2-4e30-80e9-1cfe7a07dd26"], 
    ButtonBox["iMass",
     BaseStyle->"Link",
     ButtonData->"paclet:RefpropLinkPrivate/ref/RefpropLink`Private`iMass"], 
    "0", Cell["\<\
Specifies if the input/output composition arrays are mole or mass based.\
\>", "TableText",ExpressionUUID->"6fac707e-a693-4428-afea-16a570e0d3e1"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "1caee776-5f03-4d3c-a793-18dd7876bdca"], 
    ButtonBox["iFlag",
     BaseStyle->"Link",
     ButtonData->"paclet:RefpropLinkPrivate/ref/RefpropLink`Private`iFlag"], 
    "0", Cell[
    "Flag to specify if the routine SATSPLN should be called.", "TableText",
     ExpressionUUID->"94ac20e1-8431-428e-8bca-6214d722b92c"]},
   {Cell["   ", "ModInfo",ExpressionUUID->
     "2b7c21d2-4f1e-4e65-8790-35976ea58477"], 
    ButtonBox["SatComp",
     BaseStyle->"Link",
     ButtonData->"paclet:RefpropLinkPrivate/ref/RefpropLink`Private`SatComp"], 
    ButtonBox["False",
     BaseStyle->"Link"], Cell["\<\
Flag to specify if the saturation compositions should be output.\
\>", "TableText",ExpressionUUID->"706e51cb-f8d4-4b04-b0b9-e7d3f751a125"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e6b0a294-4711-40eb-843d-2be3415bc7f6"], 
    ButtonBox["SuppresUnits",
     BaseStyle->"Link",
     ButtonData->
      "paclet:RefpropLinkPrivate/ref/RefpropLink`Private`SuppresUnits"], 
    ButtonBox["False",
     BaseStyle->"Link"], Cell["\<\
Flag to suppress units when no input parameters are available to make that \
determination (e.g. when retireving values at the critical point, triple \
point, or equation limits).\
\>", "TableText",ExpressionUUID->"52d0d085-fb5f-4557-b8e3-c96ec6158731"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.822284057492056*^9, 3.8222841202511654`*^9}, {
   3.822284788909515*^9, 3.8222848634192266`*^9}, 3.8222852418341026`*^9, {
   3.822286115138192*^9, 3.8222863285843716`*^9}, {3.822286386320735*^9, 
   3.82228646756845*^9}, {3.8427685798013964`*^9, 3.842768582088254*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.04], 
     Scaled[0.15], 
     Scaled[0.1], {
      Scaled[0.71]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->44868052,ExpressionUUID->"1cf4347e-1bf7-4d88-a8f1-babdf230ed60"],

Cell["\<\
NOTE: Far more information on the use of this function is available in the \
REFPROP DLL Documentation, which should be consulted when making non-standard \
use of this function.\
\>", "Notes",
 CellChangeTimes->{{3.8222865178888655`*^9, 3.822286579448205*^9}, {
  3.8222926705234747`*^9, 3.8222926710510616`*^9}},
 Background->RGBColor[1, 1, 0.85],
 CellID->8270684,ExpressionUUID->"6e61e922-42be-47df-8acb-48aa376658f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"9ee526dc-2432-4276-8dc6-116ef6b6a35e"],

Cell[TextData[ButtonBox["Pure Fluids",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluids"]], "Tutorials",
 CellChangeTimes->{{3.8294018214526763`*^9, 3.8294018239490004`*^9}, {
  3.8295632648719816`*^9, 3.8295632651153283`*^9}},
 CellID->341631938,ExpressionUUID->"1a7ef1b3-ae25-46cc-a513-dd110ebec21b"],

Cell[TextData[ButtonBox["Mixtures",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Mixtures"]], "Tutorials",
 CellChangeTimes->{{3.8294018214526763`*^9, 3.8294018407091913`*^9}, {
  3.829563274704691*^9, 3.8295632750258317`*^9}},
 CellID->180276538,ExpressionUUID->"1a2ee19b-0629-47e8-8637-a852032e09fd"],

Cell[TextData[ButtonBox["RefpropLink Implementation",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Implementation"]], "Tutorials",
 CellChangeTimes->{{3.8294018214526763`*^9, 3.8294018565408635`*^9}, {
  3.829563223596342*^9, 3.8295632350916276`*^9}, {3.8295632868970947`*^9, 
  3.8295632871254835`*^9}},
 CellID->5631748,ExpressionUUID->"e80ced4f-54a2-4284-8195-9b3e8d2e4ba1"],

Cell[TextData[ButtonBox["RefpropLink Quantity (Units) Implementation",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/Units"]], "Tutorials",
 CellChangeTimes->{{3.8294018214526763`*^9, 3.8294018565408635`*^9}, {
  3.829563223596342*^9, 3.8295632495639343`*^9}, {3.8295633005525837`*^9, 
  3.82956330087971*^9}},
 CellID->226078180,ExpressionUUID->"7964926c-fbed-4d45-a1e9-172d8017024c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"d0a5496e-8070-419c-ac7f-3de721a332ba"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"f4d6e7fc-2a66-466c-b0bf-53a8537f24d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"720d9ac5-efa2-4582-926f-824ce2ee72ab"],

Cell[TextData[{
 ButtonBox["NIST REFPROP Online DLL Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://refprop-docs.readthedocs.io/en/latest/DLL/index.html"], 
    None}],
 " (Latest)"
}], "RelatedLinks",
 CellChangeTimes->{{3.822372908978734*^9, 3.8223729547303915`*^9}, {
  3.822373060236165*^9, 3.822373060404719*^9}},
 CellID->1038487239,ExpressionUUID->"f9d14a93-84c8-4f9c-9fe7-b09331c02944"],

Cell[TextData[{
 ButtonBox["NIST REFPROP PDF Documentation",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://trc.nist.gov/refprop/REFPROP.PDF"], None}],
 " (Latest)"
}], "RelatedLinks",
 CellChangeTimes->{{3.8223729345463495`*^9, 3.8223729495063353`*^9}, {
  3.822373225277728*^9, 3.822373225537035*^9}},
 CellID->41233997,ExpressionUUID->"8244875f-ac75-4aa7-acb8-f4b1e764b97a"],

Cell["XXXX", "RelatedLinks",
 CellChangeTimes->{{3.8224224291253395`*^9, 3.822422445349945*^9}, {
  3.8224225471246967`*^9, 3.8224225478697333`*^9}},
 CellID->21861404,ExpressionUUID->"69530202-8dfd-4ac6-8817-66c8d1a4c250"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"0365fa42-2280-4427-a276-0cd7e0a15cb7"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["SetFluids",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetFluids"]], "InlineFormula",
  ExpressionUUID->"0e1b7f6e-757c-4544-9af4-8bad082bb259"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SetMixture",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetMixture"]], "InlineFormula",
  ExpressionUUID->"c298ff73-1536-4470-9278-f83fddef9a2b"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Setup",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setup"]], "InlineFormula",
  ExpressionUUID->"4ec65456-a00a-4f34-9b7a-0b54496fbca8"]
}], "SeeAlso",
 CellChangeTimes->{{3.822372808906435*^9, 3.822372819602816*^9}},
 CellID->929782353,ExpressionUUID->"31405719-961b-4b5e-86a4-0f8f7170b99f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"908afcd1-2781-4f7d-a7cb-3ffaba50ddb9"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"9f05893d-5286-4394-9e2d-aa01c81e7fc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"89693007-3e8b-479b-b99a-853916276e18"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8225220001182756`*^9, 3.822522000807432*^9}},
 CellLabel->"In[1]:=",
 CellID->591224332,ExpressionUUID->"2d060250-2b1b-4ba4-981c-c3e9845deca5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->112819423,ExpressionUUID->"195fbcf2-5f59-4ad9-90dd-ab9c1d159e46"],

Cell[BoxData[
 FrameBox["\<\"Found NIST REFPROP Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{
  3.822522018378435*^9, 3.823945580856203*^9, 3.8239456398872976`*^9, 
   3.8239581841746073`*^9, 3.829401668244316*^9, 3.829401911154849*^9, 
   3.8294116634243984`*^9, 3.8294615206537013`*^9, 3.829542960767803*^9, {
   3.8295435937375374`*^9, 3.829543607793929*^9}, 3.8295440158838687`*^9, 
   3.8295448438848314`*^9, 3.8295462124214573`*^9, 3.82954762536983*^9, 
   3.829552129244418*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->169221442,ExpressionUUID->"ebd63d70-fdbb-4c90-9762-a5e71b23a720"]
}, Open  ]],

Cell["\<\
Use only RefProp to set a pure fluid and extract numerical properties at a \
specified temperature and pressure.  Input parameter units are converted \
automatically to REFPROP units and applied to the return Quantity values.\
\>", "ExampleText",
 CellChangeTimes->{{3.822305021088703*^9, 3.822305038754446*^9}, {
  3.8223053557596693`*^9, 3.822305392255061*^9}, {3.8223060174149437`*^9, 
  3.822306018726431*^9}, {3.8223062972704096`*^9, 3.8223063367747188`*^9}},
 CellID->608960559,ExpressionUUID->"c3b56548-75b0-448f-9db5-98924304cdfb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"72", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<H2O\>\"", ",", "\"\<TP\>\"", ",", "\"\<H\>\"", ",", "T", ",", "P"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8223059172049704`*^9, 3.822306011007078*^9}, {
  3.822306466554597*^9, 3.822306467487102*^9}},
 CellLabel->"In[1]:=",
 CellID->503921606,ExpressionUUID->"123f17c3-0c02-4389-8f4b-adb97dfadc6b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"1680.889121552566`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.822306032015894*^9, 3.8223064700602503`*^9, 
  3.8225220253258533`*^9, 3.8239456561607714`*^9, 3.829401673125239*^9, 
  3.8294017691375427`*^9, 3.829401917739244*^9, 3.829402100081737*^9, 
  3.8294115851217737`*^9, 3.829411684874077*^9, 3.829542965263812*^9, 
  3.8295436115728526`*^9, 3.829544019880211*^9, 3.8295462352633886`*^9, 
  3.8295521346808896`*^9},
 CellLabel->"Out[3]=",
 CellID->44469842,ExpressionUUID->"1723c480-9a3c-43fa-a9c5-54f34026eb6a"]
}, Open  ]],

Cell["\<\
Get multiple properties at once using separated values in the hOut string. \
Note that the first parameter, hFld, can be omitted if using the same fluid \
as the previous call.\
\>", "ExampleText",
 CellChangeTimes->{{3.82230606731245*^9, 3.8223061946428795`*^9}},
 CellID->152882533,ExpressionUUID->"84987cf0-2dd2-4f72-9915-bec0d1a08eca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<H E S CV CP W\>\"", ",", "T", ",", "P"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822306211262455*^9, 3.8223062387828455`*^9}},
 CellLabel->"In[4]:=",
 CellID->26761357,ExpressionUUID->"27191865-a906-45d5-9863-b1d7399baf65"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"H\"\>", "\[Rule]", 
    TemplateBox[{"1680.889121552566`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"E\"\>", "\[Rule]", 
    TemplateBox[{"1679.0595581997086`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"S\"\>", "\[Rule]", 
    TemplateBox[{"5.909997939492946`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CV\"\>", "\[Rule]", 
    TemplateBox[{"74.73355673973674`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"CP\"\>", "\[Rule]", 
    TemplateBox[{"75.35169592022497`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
        "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
      "joules per kelvin mole", 
      FractionBox["\"Joules\"", 
       RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"W\"\>", "\[Rule]", 
    TemplateBox[{"1488.9709221542987`", 
      RowBox[{
       "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
      "meters per second", 
      FractionBox["\"Meters\"", "\"Seconds\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822306354266962*^9, 3.8223064732537127`*^9, 
  3.8225220355235767`*^9, 3.8294017554800572`*^9, 3.8295429707949944`*^9, 
  3.8295436156699038`*^9, 3.8295440237229414`*^9, 3.8295462614234753`*^9, 
  3.829552138483695*^9},
 CellLabel->"Out[4]=",
 CellID->637225377,ExpressionUUID->"ec324d0a-3e77-4fdb-a13b-043593e6a1a7"]
}, Open  ]],

Cell["Display results in Table form:", "ExampleText",
 CellChangeTimes->{{3.822306570895546*^9, 3.8223065804789114`*^9}},
 CellID->65608706,ExpressionUUID->"2d5d6848-5b40-49d4-b75f-bc4a3153cc0d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Apply", "[", 
   RowBox[{"List", ",", 
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<H E S CV CP W\>\"", ",", "T", ",", "P"}],
      "]"}], ",", 
    RowBox[{"{", "1", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.8223067016188936`*^9},
 NumberMarks->False,
 CellLabel->"In[5]:=",
 CellID->45746400,ExpressionUUID->"859397e0-4086-4193-840c-4184f0541448"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"H\"\>", 
     TemplateBox[{"1680.889121552566`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"E\"\>", 
     TemplateBox[{"1679.0595581997086`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
         "\"mol\""}], "joules per mole", 
       FractionBox["\"Joules\"", "\"Moles\""]},
      "Quantity"]},
    {"\<\"S\"\>", 
     TemplateBox[{"5.909997939492946`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"CV\"\>", 
     TemplateBox[{"74.73355673973674`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"CP\"\>", 
     TemplateBox[{"75.35169592022497`", 
       RowBox[{
        "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
         "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
       "joules per kelvin mole", 
       FractionBox["\"Joules\"", 
        RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
      "Quantity"]},
    {"\<\"W\"\>", 
     TemplateBox[{"1488.9709221542987`", 
       RowBox[{
        "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}],
        "meters per second", 
       FractionBox["\"Meters\"", "\"Seconds\""]},
      "Quantity"]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8223066628296523`*^9, 3.8223067087278895`*^9, 
  3.8225220421917734`*^9, 3.8295429749339285`*^9, 3.829543621441473*^9, 
  3.829544028115199*^9, 3.829546265266207*^9, 3.829552143029545*^9},
 CellLabel->"Out[5]//TableForm=",
 CellID->79845973,ExpressionUUID->"4078a8ce-6b98-4fba-9025-c4e0048fede2"]
}, Open  ]],

Cell["\<\
Or extract from the results List (all rows, 2nd element) to individual \
variables:\
\>", "ExampleText",
 CellChangeTimes->{{3.8223067357755394`*^9, 3.8223067783745995`*^9}, {
  3.822306926606125*^9, 3.8223069361416197`*^9}},
 CellID->200656412,ExpressionUUID->"40936b58-3ef0-4da8-a30b-01633c07419d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["H", "1"], ",", 
     SubscriptBox["E", "1"], ",", 
     SubscriptBox["S", "1"], ",", 
     SubscriptBox["Cv", "1"], ",", 
     SubscriptBox["Cp", "1"], ",", 
     SubscriptBox["W", "1"]}], "}"}], "=", 
   RowBox[{
    RowBox[{"RefProp", "[", 
     RowBox[{"\"\<TP\>\"", ",", "\"\<H E S CV CP W\>\"", ",", "T", ",", "P"}],
      "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 SubscriptBox["S", "1"]}], "Input",
 CellChangeTimes->{{3.8223067997025537`*^9, 3.8223068589420767`*^9}, {
  3.8223068902712817`*^9, 3.8223069170546713`*^9}},
 CellLabel->"In[6]:=",
 CellID->227212809,ExpressionUUID->"a197f2d2-72c9-4242-8680-bcb0e1a9d228"],

Cell[BoxData[
 TemplateBox[{"5.909997939492946`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.8223068829428816`*^9, 3.8223069035448065`*^9}, 
   3.8223069422024174`*^9, 3.822522051409088*^9, 3.8295429828527575`*^9, 
   3.829543626214714*^9, 3.829544033358177*^9, 3.8295462703874807`*^9, 
   3.82955214703885*^9},
 CellLabel->"Out[7]=",
 CellID->371279231,ExpressionUUID->"d1e6c6fb-b08b-48f3-87ee-31177f4d94d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "358047e2-41b6-4546-a2d5-af24ed124f59"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->132629673,ExpressionUUID->"c27589b9-8c31-4817-bc05-0b9d11c5d38e"],

Cell[TextData[{
 "Get non-numerical information for REFPROP and the loaded fluid.  Note that \
the fluid was loaded above, so ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "4f3b9546-be27-448f-97dd-79d0c876d83d"],
 " can be omitted.  We don't need a state point for most of these, so ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "f5087131-6f13-4a36-b09d-676be5f981ce"],
 " can be anything (\"XX\") and the input values, ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "b19f2d13-31cf-4964-802f-1f7fc7ed4a6d"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "a840b741-5dda-46aa-a328-4ffdf28d22f6"],
 ", can be set to 0."
}], "ExampleText",
 CellChangeTimes->{{3.8223081211252956`*^9, 3.822308151734398*^9}, {
  3.822308444422544*^9, 3.8223085750686455`*^9}},
 CellID->191059035,ExpressionUUID->"0e2fb971-e099-4b76-b766-383d1823fbf8"],

Cell[TextData[{
 StyleBox["REFPROP DLL version",
  FontWeight->"Bold"],
 " currently loaded."
}], "ExampleText",
 CellChangeTimes->{{3.8223081674942727`*^9, 3.822308181839899*^9}},
 CellID->410931534,ExpressionUUID->"86735bef-613c-4116-9f2d-b23d4b475d16"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<XX\>\"", ",", "\"\<DLL#\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822308193690189*^9, 3.8223081995226088`*^9}, {
  3.822308266821602*^9, 3.822308285748949*^9}},
 CellLabel->"In[8]:=",
 CellID->195590236,ExpressionUUID->"3d27cf63-5b96-4d1a-b195-9b665b131be9"],

Cell[BoxData["\<\"10.0.0.02\"\>"], "Output",
 CellChangeTimes->{3.8223082929736247`*^9, 3.822522057959567*^9, 
  3.8295429902320585`*^9, 3.829543587492236*^9, 3.8295436320441217`*^9, 
  3.829544037653664*^9, 3.8295462760753045`*^9, 3.8295521519656506`*^9},
 CellLabel->"Out[8]=",
 CellID->637686568,ExpressionUUID->"8576c130-b761-4207-92db-0b69389a0837"]
}, Open  ]],

Cell[TextData[{
 "Fluid ",
 StyleBox["NAME",
  FontWeight->"Bold"],
 " of the currently loaded pure fluid."
}], "ExampleText",
 CellChangeTimes->{{3.822308396380075*^9, 3.8223084147569213`*^9}},
 CellID->60899087,ExpressionUUID->"b820b2cb-ebd3-4e96-b2e9-b06953f59960"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<CO2\>\"", ",", "\"\<XX\>\"", ",", "\"\<NAME\>\"", ",", "0", ",", "0"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.8223084349648714`*^9, 3.822308435366772*^9}, {
  3.8223089915427074`*^9, 3.8223090017085104`*^9}},
 CellLabel->"In[9]:=",
 CellID->266372805,ExpressionUUID->"dfe721fc-7aa5-4b60-b06b-5d8d96969673"],

Cell[BoxData["\<\"Carbon dioxide\"\>"], "Output",
 CellChangeTimes->{3.8223084387557015`*^9, 3.8223090093620367`*^9, 
  3.822522062908331*^9, 3.8295429950411987`*^9, 3.829543579695052*^9, 
  3.829543636045396*^9, 3.8295440417677045`*^9, 3.8295462807238455`*^9, 
  3.829552155701697*^9},
 CellLabel->"Out[9]=",
 CellID->554657614,ExpressionUUID->"d3af40fa-16af-4578-9902-907f5f957355"]
}, Open  ]],

Cell[TextData[{
 "Fluid ",
 StyleBox["CAS Number",
  FontWeight->"Bold"],
 " of the currently loaded pure fluid (fluid \"CO2\" can be omitted)."
}], "ExampleText",
 CellChangeTimes->{{3.822308396380075*^9, 3.8223084147569213`*^9}, {
  3.8223086268132143`*^9, 3.8223086320771637`*^9}, {3.8295521659123898`*^9, 
  3.82955218496146*^9}},
 CellID->3880389,ExpressionUUID->"d73f16d0-8f15-4f24-b792-0f15ae86bdfd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<XX\>\"", ",", "\"\<CAS#\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8223084349648714`*^9, 3.822308435366772*^9}, {
  3.822308636853389*^9, 3.822308639469392*^9}},
 CellLabel->"In[11]:=",
 CellID->892526679,ExpressionUUID->"1b920fa5-b294-4633-85d1-603b75d49c4b"],

Cell[BoxData["\<\"124-38-9\"\>"], "Output",
 CellChangeTimes->{3.8223084387557015`*^9, 3.8223086527608414`*^9, 
  3.822309015160503*^9, 3.8225220671669416`*^9, 3.829542999136223*^9, 
  3.829543639316671*^9, 3.8295440448783484`*^9, 3.8295462840499535`*^9, 
  3.829552160297374*^9, 3.8295521908208017`*^9},
 CellLabel->"Out[11]=",
 CellID->72288565,ExpressionUUID->"4971c89a-6af0-4d93-864d-c87e2bae2cbc"]
}, Open  ]],

Cell["Full path of the currently loaded fluid file.", "ExampleText",
 CellChangeTimes->{{3.822308396380075*^9, 3.8223084147569213`*^9}, {
  3.822308689636217*^9, 3.8223087131961956`*^9}},
 CellID->96931112,ExpressionUUID->"62041e5a-f799-44a0-83db-4529f45ae910"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<XX\>\"", ",", "\"\<FDIR\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8223084349648714`*^9, 3.822308435366772*^9}, {
  3.822308723492654*^9, 3.8223087243892555`*^9}, {3.829543342887206*^9, 
  3.829543354063326*^9}},
 CellLabel->"In[12]:=",
 CellID->777299340,ExpressionUUID->"bb1c1be1-f431-4743-9550-466f0fa1ad14"],

Cell[BoxData["\<\"C:/Program Files (x86)/REFPROP/fluids/CO2.FLD\"\>"], \
"Output",
 CellChangeTimes->{
  3.8223084387557015`*^9, 3.8223087264367847`*^9, 3.822309018685104*^9, 
   3.8225220716399765`*^9, 3.8295430823148685`*^9, {3.829543346232237*^9, 
   3.829543357419354*^9}, 3.8295436424872017`*^9, 3.82954404872708*^9, 
   3.8295462884521837`*^9, 3.8295521945977006`*^9},
 CellLabel->"Out[12]=",
 CellID->159758570,ExpressionUUID->"a9c9d16e-abd9-448f-a7c6-f684e5c2dd7b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "eba18422-ecac-4be1-8bc0-704b4884311b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->285054036,ExpressionUUID->"cca8e961-7af4-4eee-8795-f63060d14064"],

Cell[TextData[StyleBox["Non-State Dependent Properties",
 FontWeight->"Bold"]], "ExampleText",
 CellChangeTimes->{{3.822309496109136*^9, 3.8223095054640865`*^9}},
 CellID->61892426,ExpressionUUID->"3d5d7109-d18e-46b5-ad2e-8cb69e232866"],

Cell[TextData[{
 "Get the Temperature, Pressure, and Density at the ",
 StyleBox["Critical Point",
  FontWeight->"Bold"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.822309210805239*^9, 3.822309233189348*^9}},
 CellID->2019146,ExpressionUUID->"ad77a4ef-982e-4e96-a097-c3a3234d59ac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["T", "c"], ",", 
    SubscriptBox["P", "c"], ",", 
    SubscriptBox["D", "c"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "\"\<Propane\>\"", ",", "\"\<CRIT\>\"", ",", "\"\<T P D\>\"", ",", "0", 
     ",", "0"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223092394904985`*^9, 3.8223092454765043`*^9}, {
  3.822309309052429*^9, 3.8223093285961847`*^9}, {3.8223094650282707`*^9, 
  3.8223094653274407`*^9}, {3.822309576261752*^9, 3.8223095921402864`*^9}, {
  3.822309887076415*^9, 3.8223099089957933`*^9}},
 CellLabel->"In[13]:=",
 CellID->435711821,ExpressionUUID->"2d47d475-be6f-4da9-bb32-b685108a46b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"369.89`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{
    "4251.158396288677`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{"5.`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.822309334605083*^9, {3.8223094583640924`*^9, 3.822309468532894*^9}, 
   3.822309596185462*^9, {3.8223098934872413`*^9, 3.8223099099781322`*^9}, 
   3.822310607833889*^9, 3.8223124739256935`*^9, 3.822324356205615*^9, 
   3.8223251338227215`*^9, 3.822421329383817*^9, 3.822522076826105*^9, 
   3.8295522059842267`*^9},
 CellLabel->"Out[13]=",
 CellID->81624036,ExpressionUUID->"877caaeb-f7b1-413e-91e5-b9c08dd44984"]
}, Open  ]],

Cell[TextData[{
 "Get the Temperature and Pressure at the ",
 StyleBox["Triple Point",
  FontWeight->"Bold"],
 " (density has two values)."
}], "ExampleText",
 CellChangeTimes->{{3.82230952633529*^9, 3.8223095554045386`*^9}},
 CellID->815938708,ExpressionUUID->"73a4e4e9-4958-4ac1-a19e-f4eb6b0efe38"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["T", "t"], ",", 
    SubscriptBox["P", "t"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TRIP\>\"", ",", "\"\<T P\>\"", ",", "0", ",", "0"}], "]"}], 
   "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223096274997077`*^9, 3.8223096506757216`*^9}, {
  3.822309850557096*^9, 3.8223098537236223`*^9}, {3.822309914579852*^9, 
  3.822309918758647*^9}, {3.8223228752098384`*^9, 3.822322880960475*^9}},
 CellLabel->"In[14]:=",
 CellID->25079301,ExpressionUUID->"e34e3f96-fe3d-4058-87e3-11e807ce26f7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"85.525`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{
    "1.7271224600503147`*^-7", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8223096527372046`*^9, 3.8223098555866413`*^9, 
  3.8223099205757875`*^9, 3.8223106111071367`*^9, 3.822312478819623*^9, 
  3.822322887303461*^9, 3.8223243596155167`*^9, 3.822325137203698*^9, 
  3.822421333758089*^9, 3.822522081725999*^9, 3.8295522098060107`*^9},
 CellLabel->"Out[14]=",
 CellID->10518712,ExpressionUUID->"50047084-dc74-4efc-8036-efdd802e13fe"]
}, Open  ]],

Cell[TextData[{
 "Get the ",
 StyleBox["Maximum",
  FontWeight->"Bold"],
 " Temperature, Pressure, and Density for the equation of state.  These \
values must be returned individually (only one character in ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "1277a5a4-9bbd-4de9-a515-2f596ce6ca07"],
 " per call) or large negative values are returned.  The ",
 StyleBox["Minimum",
  FontWeight->"Bold"],
 " values can also be retrieved using \"EOSMIN\" instead of \"EOSMAX\"."
}], "ExampleText",
 CellChangeTimes->{{3.8223130412103987`*^9, 3.8223130669375534`*^9}, 
   3.8223232835047407`*^9, {3.8223233593758082`*^9, 3.822323501511639*^9}, {
   3.822324192902404*^9, 3.8223242197266564`*^9}},
 CellID->351195788,ExpressionUUID->"1d9dd1c4-49f1-4afd-be1b-388cc615c511"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["T", "max"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<EOSMAX\>\"", ",", "\"\<T\>\"", ",", "0", ",", "0"}], "]"}], 
   "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223228385349183`*^9, 3.822322950592183*^9}},
 CellLabel->"In[15]:=",
 CellID->111027185,ExpressionUUID->"35fbde84-c9d2-402c-a38e-e722a518a3bb"],

Cell[BoxData[
 TemplateBox[{"650.`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8223229582068167`*^9, 3.8223243635679255`*^9, 
  3.8223251405347443`*^9, 3.822421338207225*^9, 3.8225220862299533`*^9, 
  3.8295522136367674`*^9},
 CellLabel->"Out[15]=",
 CellID->127530111,ExpressionUUID->"66e78a13-6c56-4292-b93a-c0463ed5e895"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["P", "max"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<EOSMAX\>\"", ",", "\"\<P\>\"", ",", "0", ",", "0"}], "]"}], 
   "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223229709188147`*^9, 3.822322989199919*^9}, {
  3.82232331736318*^9, 3.8223233491601324`*^9}},
 CellLabel->"In[16]:=",
 CellID->26787571,ExpressionUUID->"707f39ab-fa6b-4eed-acfb-1fc45e49f67f"],

Cell[BoxData[
 TemplateBox[{"1.`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.822322990510414*^9, {3.8223233190696154`*^9, 3.82232335613348*^9}, 
   3.822324367251071*^9, 3.8223251440513353`*^9, 3.822421341660952*^9, 
   3.8225220899549894`*^9, 3.829552217206223*^9},
 CellLabel->"Out[16]=",
 CellID->36415600,ExpressionUUID->"1e267afd-1cb1-4330-9843-0be4a7b89dd3"]
}, Open  ]],

Cell["\<\
However, one can also get the most important of these values at once using \
the following hOut values with no state point specified.\
\>", "ExampleText",
 CellChangeTimes->{{3.8223241682882385`*^9, 3.8223241771874065`*^9}, {
  3.822324233390111*^9, 3.8223242640311584`*^9}},
 CellID->154551291,ExpressionUUID->"a7e4b148-9628-45ec-b3a7-479f6ba867d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<XX\>\"", ",", "\"\<TMIN TMAX PMAX DMAX\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.822324071719531*^9, 3.8223240835907497`*^9}, {
  3.8223241167371216`*^9, 3.822324121191209*^9}},
 CellLabel->"In[17]:=",
 CellID->7945850,ExpressionUUID->"fd64d0f2-7636-4687-91c6-19cf1ae0acc0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"TMIN\"\>", "\[Rule]", 
    TemplateBox[{"85.525`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"TMAX\"\>", "\[Rule]", 
    TemplateBox[{"650.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"PMAX\"\>", "\[Rule]", 
    TemplateBox[{"1.`*^6", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"DMAX\"\>", "\[Rule]", 
    TemplateBox[{"20.6`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.822324085300178*^9, 3.822324123449141*^9, 3.8223242752640815`*^9, {
   3.822324347033148*^9, 3.8223243708464556`*^9}, 3.822325159766336*^9, 
   3.8224213502798986`*^9, 3.822522095604884*^9, 3.8295522221679587`*^9},
 CellLabel->"Out[17]=",
 CellID->173594750,ExpressionUUID->"a371bcd3-6201-4f55-a355-85861ff4cade"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "6dd14ca9-6223-4b4e-bf89-288845cf02ed"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->185799557,ExpressionUUID->"36c83fb1-4c54-437c-bd5d-8814e93ec624"],

Cell[TextData[StyleBox["Saturation Properties",
 FontWeight->"Bold"]], "ExampleText",
 CellChangeTimes->{{3.8223097979966774`*^9, 3.8223098049560633`*^9}},
 CellID->212668633,ExpressionUUID->"cc5d0ea1-9b8f-4d5e-a917-ca9984ed86db"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["T", "t"], "+", 
     SubscriptBox["T", "c"]}], ")"}], "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.822309822777396*^9, 3.822309869876422*^9}, {
  3.8223099265588083`*^9, 3.8223099267792225`*^9}},
 CellLabel->"In[18]:=",
 CellID->24185568,ExpressionUUID->"1048ab1c-1994-4e73-b42b-6619076d6990"],

Cell[BoxData[
 TemplateBox[{"227.70749999999998`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.822309864162675*^9, 3.822309871427268*^9}, 
   3.8223099276378984`*^9, 3.822310614940852*^9, 3.8223124846041555`*^9, 
   3.822324417362045*^9, 3.822421354950434*^9, 3.8225221022820177`*^9, 
   3.829552225643687*^9},
 CellLabel->"Out[18]=",
 CellID->957362905,ExpressionUUID->"b2a147c7-2e31-4e02-8735-f4f2fa2aaa56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", "L"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TQ\>\"", ",", "\"\<D\>\"", ",", "T", ",", "0"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223100759462175`*^9, 3.8223101638511295`*^9}},
 CellLabel->"In[19]:=",
 CellID->249972356,ExpressionUUID->"5d5c20db-a12b-4a3f-99a4-11f7788cb788"],

Cell[BoxData[
 TemplateBox[{"13.260056200195528`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.822310166825144*^9, 3.8223106188872967`*^9, 
  3.8223124885096755`*^9, 3.8223244212585893`*^9, 3.8224213583613124`*^9, 
  3.822522106241428*^9, 3.829552229616078*^9},
 CellLabel->"Out[19]=",
 CellID->107997273,ExpressionUUID->"0324c8f8-e733-47b7-b292-0b8367d82c85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["D", "V"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TQ\>\"", ",", "\"\<D\>\"", ",", "T", ",", "1"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223100759462175`*^9, 3.822310197403384*^9}},
 CellLabel->"In[20]:=",
 CellID->296576850,ExpressionUUID->"67871a69-2977-4acb-b493-aa2c4d0e3621"],

Cell[BoxData[
 TemplateBox[{"0.04769991089259762`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.822310207188204*^9, 3.8223106234271536`*^9, 
  3.8223124936150208`*^9, 3.8223244242316647`*^9, 3.8224213614520464`*^9, 
  3.8225221098587523`*^9, 3.8295522337151155`*^9},
 CellLabel->"Out[20]=",
 CellID->136388393,ExpressionUUID->"3419fe48-5e09-48f0-ad7f-722df40758f3"]
}, Open  ]],

Cell["Saturated Liquid Properties", "ExampleText",
 CellChangeTimes->{{3.8223102679566746`*^9, 3.8223102734519763`*^9}},
 CellID->152586563,ExpressionUUID->"b9446424-349b-4930-a922-e06113be55c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["H", "L"], ",", 
    SubscriptBox["E", "L"], ",", 
    SubscriptBox["S", "L"], ",", 
    SubscriptBox["Cv", "L"], ",", 
    SubscriptBox["Cp", "L"], ",", 
    SubscriptBox["W", "L"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TD\>\"", ",", "\"\<H E S Cv Cp W\>\"", ",", "T", ",", 
     SubscriptBox["D", "L"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223102797451468`*^9, 3.822310392963319*^9}},
 CellLabel->"In[21]:=",
 CellID->343065636,ExpressionUUID->"8a117c9f-89f3-46a8-82d2-8040674860e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"4096.126497677439`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"4089.544552597964`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"25.33764699976746`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"63.41847324527707`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"98.38130465800718`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"1182.6351619458142`", 
     RowBox[{
      "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
     "meters per second", 
     FractionBox["\"Meters\"", "\"Seconds\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8223104076330914`*^9, 3.822310629247619*^9, 
  3.8223124981339617`*^9, 3.8223244285191975`*^9, 3.822421365408464*^9, 
  3.822522114109412*^9, 3.8295522401259804`*^9},
 CellLabel->"Out[21]=",
 CellID->284691561,ExpressionUUID->"2a429177-0b92-41c1-bd2b-c9b3698eb198"]
}, Open  ]],

Cell["Saturated Vapor Properties", "ExampleText",
 CellChangeTimes->{{3.8223102679566746`*^9, 3.8223102734519763`*^9}, {
  3.8223106574042826`*^9, 3.8223106581303616`*^9}},
 CellID->29485924,ExpressionUUID->"7ebc9bdc-9c88-407e-bb4a-925e5b9858f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["H", "V"], ",", 
    SubscriptBox["E", "V"], ",", 
    SubscriptBox["S", "V"], ",", 
    SubscriptBox["Cv", "V"], ",", 
    SubscriptBox["Cp", "V"], ",", 
    SubscriptBox["W", "V"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TD\>\"", ",", "\"\<H E S Cv Cp W\>\"", ",", "T", ",", 
     SubscriptBox["D", "V"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8223102797451468`*^9, 3.822310392963319*^9}, {
  3.822310665315115*^9, 3.8223106850752916`*^9}},
 CellLabel->"In[22]:=",
 CellID->102662937,ExpressionUUID->"88338db0-f135-4001-9160-53f29d17f3ed"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"23015.92144327989`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"21186.212330057435`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"], ",", 
   TemplateBox[{"108.42579712922061`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"53.017242962724765`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"62.692904189533394`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
       "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
     "joules per kelvin mole", 
     FractionBox["\"Joules\"", 
      RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
    "Quantity"], ",", 
   TemplateBox[{"217.62253915016018`", 
     RowBox[{
      "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], 
     "meters per second", 
     FractionBox["\"Meters\"", "\"Seconds\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8223104076330914`*^9, 3.822310629247619*^9, 
  3.8223106907620535`*^9, 3.8223125030388145`*^9, 3.8223244321544743`*^9, 
  3.822421369611196*^9, 3.822522117736681*^9, 3.8295522439796762`*^9},
 CellLabel->"Out[22]=",
 CellID->91888392,ExpressionUUID->"1b0eaacb-1c3a-474d-9737-515ed7a2117f"]
}, Open  ]],

Cell[TextData[{
 "As a shortcut, use \"*SAT\" as ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "2a9924eb-e6c1-42f2-9192-165773cbfc88"],
 ", where * is any of the property codes.  Here, we use \"TSAT\" and specify \
the saturation temperature in ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "842fed18-50a1-4042-891a-725d4c7e6221"],
 " (",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "dddac54c-86fc-42c2-bfc8-eac18ce45a6f"],
 " is 0 as it is not needed).  Any saturation property can then be returned \
by appending \"VAP\" or \"LIQ\" to the property code in ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "1ff6e96b-a580-4f3a-93a7-89ddfa0462fb"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8223125995786276`*^9, 3.822312829879635*^9}},
 CellID->363923079,ExpressionUUID->"56182dec-330e-48f1-be1d-ba28f011a608"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<Dliq Dvap\>\"", ",", "T", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8223116131779556`*^9, 3.8223116133953447`*^9}, {
  3.8223116434270473`*^9, 3.822311651163357*^9}, {3.822312842657464*^9, 
  3.8223128502890525`*^9}},
 CellLabel->"In[23]:=",
 CellID->475072060,ExpressionUUID->"8c571c77-04fa-4a31-bc6c-26447557161c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Dliq\"\>", "\[Rule]", 
    TemplateBox[{"13.260056200195528`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dvap\"\>", "\[Rule]", 
    TemplateBox[{"0.04769991089259762`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.822311616836171*^9, 3.8223116547307854`*^9, 
  3.82231251258132*^9, 3.8223128665994263`*^9, 3.8223244357717714`*^9, 
  3.8225221222785497`*^9, 3.829552247488262*^9},
 CellLabel->"Out[23]=",
 CellID->159499427,ExpressionUUID->"1746098f-0820-4bff-a193-8b71f42f70a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<Tsat\>\"", ",", "\"\<Hliq Hvap\>\"", ",", "T", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8223116131779556`*^9, 3.8223116133953447`*^9}, {
  3.8223116434270473`*^9, 3.822311651163357*^9}, {3.822312556913745*^9, 
  3.82231255910588*^9}, {3.8223128561453896`*^9, 3.8223128619777904`*^9}},
 CellLabel->"In[24]:=",
 CellID->117797973,ExpressionUUID->"9fdb6c33-fbe7-4f46-baed-52a906def0c2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Hliq\"\>", "\[Rule]", 
    TemplateBox[{"4096.126497677439`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Hvap\"\>", "\[Rule]", 
    TemplateBox[{"23015.92144327989`", 
      RowBox[{
       "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"mol\""}], "joules per mole", 
      FractionBox["\"Joules\"", "\"Moles\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8223125699967227`*^9, 3.8223128775940247`*^9, 
  3.8223244609564104`*^9, 3.8225221254889493`*^9, 3.829552251443687*^9},
 CellLabel->"Out[24]=",
 CellID->214763746,ExpressionUUID->"e7f163b5-939c-43ff-84fa-61e934b555a9"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"e73b4edf-29b4-4653-9e72-e2e368488956"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "250bf550-92e1-4ebd-a647-e23492851cb0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"c0755624-9cea-4675-ae3b-300104315e8b"],

Cell[TextData[{
 "There is only ever one instance of the RefProp DLL loaded on the machine.  \
This means that a fluid(s) list loaded by ",
 Cell[BoxData[
 "setup"], "InlineFormula",ExpressionUUID->
  "a10c273d-6475-4c44-9c95-2de5a603cdd6"],
 ", ",
 Cell[BoxData[
  ButtonBox["SetFluids",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetFluids"]], "InlineFormula",
  ExpressionUUID->"09bb90a8-2660-4ea3-8842-bd8e23533197"],
 ", or ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "a158e8f4-b0c4-4ee8-b8dd-39bf908e3ecb"],
 " into the DLL will be used across all active / open notebooks and help \
files.  Care should be exercised when calling these functions out of sequence \
or in multiple open notebooks."
}], "ExampleText",
 CellChangeTimes->{{3.8181537888631835`*^9, 3.818153872479603*^9}, {
   3.818153986914585*^9, 3.8181540293421755`*^9}, 3.818154525587225*^9, {
   3.822326865148746*^9, 3.82232697338026*^9}},
 CellID->180608076,ExpressionUUID->"13a90149-15a8-41ce-b1c8-6fc0731d9b1c"],

Cell[TextData[{
 "Best practice is to use RefpropLink in only one open notebook at a time and \
to call ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "26b518a3-bd0a-4f74-b0ae-c08bb7c068fb"],
 " to load a single fluids list at the beginning of the notebook.  If ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "afd182c1-778b-45a5-a9b9-ca697fa46229"],
 " is called multiple times, with different fluids lists, all calculations \
should be re-evaluated, in page order, to ensure that the correct fluids are \
loaded at the appropriate time."
}], "ExampleText",
 CellChangeTimes->{{3.8181540511518493`*^9, 3.8181541315508633`*^9}, {
   3.8181542520227394`*^9, 3.818154337735552*^9}, {3.81815454126733*^9, 
   3.8181545574560113`*^9}, 3.8223267645328636`*^9, {3.8223269972384176`*^9, 
   3.8223270405097075`*^9}},
 CellID->119064406,ExpressionUUID->"23fee4c7-653b-40fe-81e9-5de3e68b2857"],

Cell[TextData[{
 "Fortunately, Help pages are not evaluated dynamically when they are opened, \
so they may be browsed and viewed without impacting the state of the loaded \
fluids in any open notebooks.  Help examples ",
 StyleBox["should not be re-evaluated",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", as it can have adverse and unexpected affects on currently open notebook \
evaluations."
}], "ExampleText",
 CellChangeTimes->{{3.8181543523304973`*^9, 3.8181544884874554`*^9}, {
  3.822326802084428*^9, 3.8223268031485777`*^9}, {3.822327060219961*^9, 
  3.82232708208451*^9}},
 CellID->119521226,ExpressionUUID->"4ffcb70c-3a85-4efc-abea-2e2f34d28e19"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Unit (Quantity) Inputs/Outputs", "ExampleSection",ExpressionUUID->
   "d39814c6-a961-4511-9ac9-7a377af10a92"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.8222869642898736`*^9, 3.822286970882207*^9}, {
  3.822287436924684*^9, 3.8222874486004553`*^9}},
 CellID->475273132,ExpressionUUID->"32eac6e9-bf76-4beb-bcea-33d8c15f7854"],

Cell["\<\
The best way to use the RefProp function is by providing inputs as unit \
labeled Quantity values.  When input values are determined to be Quantity \
values, they are converted automatically to the REFPROP default unit system \
and numerical outputs are also returned as Quantity values in the REFPROP \
default unit system.  These returned Quantity values can then be converted to \
any units the user requires.\
\>", "ExampleText",
 CellChangeTimes->{{3.8222870027290554`*^9, 3.822287078472436*^9}, {
  3.8222871126879525`*^9, 3.822287273615515*^9}, {3.822287306647137*^9, 
  3.822287417423871*^9}, {3.822287458607717*^9, 3.822287483147052*^9}, {
  3.8222876861272078`*^9, 3.8222877109438457`*^9}},
 CellID->510823850,ExpressionUUID->"c4c1d602-e695-41ee-ba86-1b78afa9cf2a"],

Cell[TextData[{
 "Because Mathematica is handling the units, when Quantity values are being \
used, the 'DEFAULT' unit system is ",
 StyleBox["always",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " used, over-riding any value set with the iUnits option (see below).  "
}], "ExampleText",
 CellChangeTimes->{{3.8222870027290554`*^9, 3.822287078472436*^9}, {
  3.8222871126879525`*^9, 3.822287273615515*^9}, {3.822287306647137*^9, 
  3.822287417423871*^9}, {3.822287458607717*^9, 3.8222875008078156`*^9}, {
  3.822287534951557*^9, 3.822287552903541*^9}, {3.822287661896017*^9, 
  3.822287674758586*^9}},
 CellID->114975418,ExpressionUUID->"ae679ad2-2500-4324-aadb-69fd7575acb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Mixtures", "ExampleSection",ExpressionUUID->
   "b1c5edc2-416e-421b-b19a-337afd693506"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.822372229079262*^9, 3.8223722509557486`*^9}},
 CellID->1020263627,ExpressionUUID->"a4873f28-41d2-4b30-ad8c-d221081745a0"],

Cell[TextData[{
 "Mixtures can be set by passing multiple pure fluids or the name of a \
pre-defined mixture (.mix) file in ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "d8101246-cafd-4ad6-ac73-d5ceea7af28f"],
 ".  If passing multiple pure fluids, each name should be separated by \
semicolons or asterisks.  If the composition is included in the ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "eecd6fb1-39c8-40d1-8e79-99c94f88a7ae"],
 " parameter, or if a predefined mixture is selected, the composition array \
will be returned in ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "48e54f1e-bdfb-48de-b4e7-985da00c2bb4"],
 " as a List (on a molar basis unless the ",
 Cell[BoxData[
  StyleBox["iMass", "TI"]], "InlineFormula",ExpressionUUID->
  "161951d3-fcff-4387-9a12-11ce88a163ec"],
 " option is set to 1, then mass based).  That composition should be captured \
and provided in subsequent calls to ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "e6a3c0ac-1a87-4bc2-b1ea-39a27f245d84"],
 ", even if the fluid string is not.  If the composition changes, pass the \
new composition in the ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "2250cd07-dd85-4966-a274-7713bf1e56c3"],
 " array, rather than sending a new fluid string in the ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "4e94969e-4250-49ca-bcea-835f71c4ec3e"],
 " parameter."
}], "ExampleText",
 CellChangeTimes->{{3.8223723758846292`*^9, 3.822372383380552*^9}, {
  3.8223760785072646`*^9, 3.822376087662779*^9}, {3.8223761203752813`*^9, 
  3.8223763008465743`*^9}, {3.822376332783183*^9, 3.8223765005025864`*^9}, {
  3.8223765380411797`*^9, 3.8223766419382553`*^9}},
 CellID->648973893,ExpressionUUID->"e0506874-6f00-4754-a032-fd3d8aab1b96"],

Cell[TextData[{
 "Multi-component mixture with no composition specified in ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "779222b0-c3d7-43c0-a03b-af28bc65dedc"],
 " (composition should be supplied in ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "e5e5ecb7-7177-440f-9d1d-1210f19d1055"],
 ")."
}], "ExampleText",
 CellChangeTimes->{{3.822376665431446*^9, 3.8223767464836607`*^9}},
 CellID->289794140,ExpressionUUID->"f0a3be43-13e0-4a18-a213-a255b0093055"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Fluid", "=", "\"\<METHANE;ETHANE;PROPANE;BUTANE;ISOBUTANE\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "FluidAlt", "=", "\"\<METHANE*ETHANE*PROPANE*BUTANE*ISOBUTANE\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"{", 
    RowBox[{"0.2", ",", "0.2", ",", "0.2", ",", "0.2", ",", "0.2"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"72", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"RefProp", "[", 
  RowBox[{
  "Fluid", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", "T", ",", "P", ",", 
   "z"}], "]"}]}], "Input",
 CellChangeTimes->{{3.822376760410406*^9, 3.8223769564630256`*^9}, {
  3.8223774861991377`*^9, 3.8223774942226496`*^9}, {3.822377551200284*^9, 
  3.8223775804390464`*^9}, {3.8223779980545588`*^9, 3.8223780076459074`*^9}},
 CellLabel->"In[25]:=",
 CellID->112066441,ExpressionUUID->"c2f57507-2266-44f0-8eab-9d3ad5d3c490"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"D\"\>", "\[Rule]", 
    TemplateBox[{"0.04186556229502792`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"z\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.2`", ",", "0.2`", ",", "0.2`", ",", "0.2`", ",", "0.2`"}], 
     "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.822376919978609*^9, 3.8223769590231805`*^9, 3.822377153957756*^9, 
   3.8223773830510273`*^9, {3.822377472379074*^9, 3.822377495602986*^9}, 
   3.822377583500857*^9, 3.822377701147187*^9, 3.8223780182744484`*^9, 
   3.822421377912019*^9, 3.8225221340490503`*^9, 3.8295522721822696`*^9},
 CellLabel->"Out[30]=",
 CellID->61669505,ExpressionUUID->"32625d70-3d34-41a8-82db-6c4e2cb0754d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "54c43ab0-de44-43fb-b6cd-e76aae693184"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->211327390,ExpressionUUID->"d52bc55b-67d0-46f8-8355-fc580b770757"],

Cell[TextData[{
 "Alternatively, the mixture composition can be included in the fluid string. \
 For example, the following are valid fluid strings, but the returned value \
of ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "4ba647ff-04d6-4a1b-9cb2-6d6d28f9cb27"],
 " must be captured for subsequent calls to ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "477af45c-abd3-4b64-a247-b6a11eaa7bfb"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8223777385830865`*^9, 3.822377770630374*^9}, {
  3.8223780844454904`*^9, 3.8223781301372485`*^9}},
 CellID->166007084,ExpressionUUID->"2f3ac7e2-8d25-4852-8e62-4bf56d6d7dee"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hFldMix1", "=", "\"\<R134a;0.3; R1234yf;0.3; R1234ze(Z);0.4\>\""}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "hFldMix2", " ", "=", " ", 
   "\"\<CO2;0.2 * isobutane;0.3 * propadiene;0.5\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "hFldMix3", " ", "=", " ", "\"\<Nitrogen;Oxygen;Argon|0.4;0.3;0.3\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "hFldMix4", " ", "=", " ", 
   "\"\<Nitrogen; Oxygen; Argon ~ 0.4; 0.3; 0.3\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["D", "mix"], ",", 
    SubscriptBox["z", "mix"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "hFldMix4", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", "T", ",", "P"}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.822377782843674*^9, 3.822377920041193*^9}, {
  3.8223781540213957`*^9, 3.822378210453458*^9}, {3.822378246189872*^9, 
  3.8223782489175777`*^9}, {3.822378347733246*^9, 3.8223783977973986`*^9}, {
  3.8223784285840473`*^9, 3.8223784869818554`*^9}},
 CellLabel->"In[31]:=",
 CellID->257830515,ExpressionUUID->"5ea89be3-94ec-4b59-a1cb-68fe97835bd2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"0.04127873676206025`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   RowBox[{"{", 
    RowBox[{"0.4`", ",", "0.3`", ",", "0.3`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.822378201503366*^9, 3.8223782175335207`*^9}, 
   3.8223782513959184`*^9, {3.8223783565137596`*^9, 3.822378399526744*^9}, {
   3.8223784306864*^9, 3.8223784541736126`*^9}, 3.8223784908524733`*^9, 
   3.8224213821406803`*^9, 3.8225221413624897`*^9, 3.829552277878048*^9},
 CellLabel->"Out[35]=",
 CellID->307739585,ExpressionUUID->"3c46f2ec-00d4-4afb-9c4c-de9aba62ea1c"]
}, Open  ]],

Cell[TextData[{
 "Subsequent calls can then omit ",
 Cell[BoxData[
  StyleBox["hFld", "TI"]], "InlineFormula",ExpressionUUID->
  "1fde1f90-dd17-4105-b39d-eb1b1eca9504"],
 ", but provide the previously captured mixture composition."
}], "ExampleText",
 CellChangeTimes->{{3.822377597126441*^9, 3.8223776181581607`*^9}, {
  3.8223788022451906`*^9, 3.822378817157302*^9}},
 CellID->236256670,ExpressionUUID->"ef8c3dd5-cf9e-42fb-a109-d59d4f14addb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<H\>\"", ",", "T", ",", "P", ",", 
   SubscriptBox["z", "mix"]}], "]"}]], "Input",
 CellChangeTimes->{
  3.822377641501749*^9, 3.822377939226905*^9, {3.822378497280282*^9, 
   3.8223784982197695`*^9}},
 CellLabel->"In[36]:=",
 CellID->162194727,ExpressionUUID->"7b9ed288-3b7d-4389-9987-887f8b88afd3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"7849.562928195792`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8223776716680365`*^9, 3.822377711788725*^9, 
  3.822377946030706*^9, 3.8223785076635103`*^9, 3.8224213848833437`*^9, 
  3.8225221456420436`*^9, 3.8295522836915045`*^9},
 CellLabel->"Out[36]=",
 CellID->184066379,ExpressionUUID->"e5970241-dc3a-474f-9a35-461149599045"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3ef909de-255e-4c69-b5e4-d0a382165362"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->231294551,ExpressionUUID->"938a59d7-fbe1-4f5a-8b7f-96065a78b236"],

Cell["\<\
Finally, pre-defined mixtures can be specific with a \".mix\" extension.\
\>", "ExampleText",
 CellChangeTimes->{{3.8223785567442617`*^9, 3.822378612533535*^9}},
 CellID->65128520,ExpressionUUID->"cfdf09c2-de18-4aa1-9b33-5ddfe2ed8aca"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hFldPreMix", " ", "=", " ", "\"\<R410A.MIX\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["D", "mix"], ",", 
    SubscriptBox["z", "mix"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "hFldPreMix", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", "T", ",", "P"}], 
    "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8223786362301593`*^9, 3.822378703413533*^9}},
 CellLabel->"In[37]:=",
 CellID->231909604,ExpressionUUID->"7584421f-86c0-48e8-b1cb-b5af7e1c5b91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"0.04182732326133291`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   RowBox[{"{", 
    RowBox[{"0.697614699375863`", ",", "0.302385300624138`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.822378734303879*^9, 3.8224212827305727`*^9, 
  3.822421395265603*^9, 3.8225221543647127`*^9, 3.829552288590373*^9},
 CellLabel->"Out[38]=",
 CellID->108402234,ExpressionUUID->"278bd82b-a6b5-4546-b9eb-b6442527b32b"]
}, Open  ]],

Cell["\<\
Subsequent calls can then omit hFld, but provide the previously captured \
mixture composition.\
\>", "ExampleText",
 CellChangeTimes->{{3.822377597126441*^9, 3.8223776181581607`*^9}, {
  3.822378825039213*^9, 3.822378828628621*^9}},
 CellID->154841770,ExpressionUUID->"aca527f2-5086-4d22-8970-01ebe1a12b7a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<TP\>\"", ",", "\"\<H\>\"", ",", "T", ",", "P", ",", 
   SubscriptBox["z", "mix"]}], "]"}]], "Input",
 CellChangeTimes->{
  3.822377641501749*^9, 3.822377939226905*^9, {3.822378497280282*^9, 
   3.8223784982197695`*^9}},
 CellLabel->"In[39]:=",
 CellID->475367137,ExpressionUUID->"4e5c5c3b-fd02-4c9b-9a4f-2dd424b05197"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", "\[Rule]", 
   TemplateBox[{"33295.98374090946`", 
     RowBox[{
      "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}],
      "joules per mole", 
     FractionBox["\"Joules\"", "\"Moles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{3.8223776716680365`*^9, 3.822377711788725*^9, 
  3.822377946030706*^9, 3.8223785076635103`*^9, 3.82237875423358*^9, 
  3.8224213990165663`*^9, 3.822522159121989*^9, 3.8295522923453674`*^9},
 CellLabel->"Out[39]=",
 CellID->114859655,ExpressionUUID->"b080a1fa-1d7a-4ea6-81dc-a28cb27b4701"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "740ac981-a260-48ae-84bb-c0d7f6aeea8e"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->274678047,ExpressionUUID->"2193e246-5fd6-40e5-afc5-a73d3c9ce08c"],

Cell["\<\
To retrieve string information for the individual components of the mixture, \
the component number should be added after the command, such as NAME(3) or \
FDIR(1).\
\>", "ExampleText",
 CellChangeTimes->{{3.8224211603110375`*^9, 3.822421190272894*^9}, {
  3.8224212345664296`*^9, 3.8224212660701647`*^9}},
 CellID->654420386,ExpressionUUID->"6e5e9a88-2480-40b5-9fae-3a65b221ac01"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nc", "=", 
  RowBox[{"Length", "[", 
   SubscriptBox["z", "mix"], "]"}]}]], "Input",
 CellChangeTimes->{{3.8224214180357018`*^9, 3.822421439992943*^9}},
 CellLabel->"In[40]:=",
 CellID->268469038,ExpressionUUID->"5c4e5496-3ab7-4bce-9d32-1756fb5c424a"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.8224214436840973`*^9, 3.8225221743422785`*^9, 
  3.829552297948353*^9},
 CellLabel->"Out[40]=",
 CellID->130289600,ExpressionUUID->"47e14705-b14b-471e-b748-336531c96548"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Name1", "=", 
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<NAME(1)\>\"", ",", "0", ",", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8224214712224436`*^9, 3.8224215227436104`*^9}},
 CellLabel->"In[41]:=",
 CellID->55473298,ExpressionUUID->"54146806-1403-4016-9178-5d47a1b68399"],

Cell[BoxData["\<\"R32\"\>"], "Output",
 CellChangeTimes->{{3.8224215166260014`*^9, 3.8224215238975487`*^9}, 
   3.8225221794715815`*^9, 3.8295523014051404`*^9},
 CellLabel->"Out[41]=",
 CellID->103540500,ExpressionUUID->"9e76f240-2c82-46f5-ad9f-656d6c42a3e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Name2", "=", 
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<NAME(2)\>\"", ",", "0", ",", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.822421542590554*^9, 3.822421546350496*^9}},
 CellLabel->"In[42]:=",
 CellID->432325858,ExpressionUUID->"e2b1e7be-0846-45b5-b0f4-7656f95b16bb"],

Cell[BoxData["\<\"R125\"\>"], "Output",
 CellChangeTimes->{3.822421548423946*^9, 3.82252218327439*^9, 
  3.8295523045876026`*^9},
 CellLabel->"Out[42]=",
 CellID->47507090,ExpressionUUID->"695d6d4c-2fab-4e61-9f0c-6c78edae5269"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<LONGNAME(1)\>\"", ",", "0", ",", "0"}], 
   "]"}], " ", "<>", " ", "\"\< - \>\"", " ", "<>", " ", 
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<FULLCHEMFORM(1)\>\"", ",", "0", ",", "0"}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.822421931070485*^9, 3.8224219314793916`*^9}, {
  3.822422018465701*^9, 3.822422069253891*^9}},
 CellLabel->"In[43]:=",
 CellID->36623899,ExpressionUUID->"8a6548cc-0c74-4409-9104-7acacb7357b7"],

Cell[BoxData["\<\"Difluoromethane - CH2F2\"\>"], "Output",
 CellChangeTimes->{
  3.8224219328896203`*^9, {3.822422057984999*^9, 3.8224220706481524`*^9}, 
   3.8225221890160303`*^9, 3.829552308768454*^9},
 CellLabel->"Out[43]=",
 CellID->638260992,ExpressionUUID->"65159f1f-9bdd-4241-87f9-977707aa5b7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<LONGNAME(2)\>\"", ",", "0", ",", "0"}], 
   "]"}], "<>", " ", "\"\< - \>\"", " ", "<>", " ", 
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<XX\>\"", ",", "\"\<FULLCHEMFORM(2)\>\"", ",", "0", ",", "0"}],
    "]"}]}]], "Input",
 CellChangeTimes->{
  3.8224219465181713`*^9, {3.8224220825862274`*^9, 3.8224220895136695`*^9}},
 CellLabel->"In[44]:=",
 CellID->626303466,ExpressionUUID->"8d53d785-d723-48e9-803b-5abaa0ff002d"],

Cell[BoxData["\<\"Pentafluoroethane - CHF2CF3\"\>"], "Output",
 CellChangeTimes->{3.822421948080983*^9, 3.8224220922204294`*^9, 
  3.822522193114069*^9, 3.8295523123787727`*^9},
 CellLabel->"Out[44]=",
 CellID->23937636,ExpressionUUID->"03f954cd-299a-481d-a259-ddd54854b35a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "da80269e-ceb7-491d-86b3-af0937f19a19"],
  $Line = 0; Null]], "ExampleSection",ExpressionUUID->"624a544d-1d45-4860-\
aae6-debf1759ca67"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "iUnits", "ExampleSubsection",ExpressionUUID->
   "2e02044a-e39c-4609-b42a-a9da3dc8a221"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8222867491762342`*^9, 
  3.822286753872672*^9}},ExpressionUUID->"207ef6c1-88a0-46c1-b3bc-\
c8b778361d57"],

Cell["\<\
Multiple unit systems are available for use in property values, such as the \
SI system, English system, mixed sets, and so forth. Each set is identified \
with an enumerated value, which is sent as an input code in iUnits.\
\>", "ExampleText",
 CellChangeTimes->{{3.8222868859104824`*^9, 3.8222868913758917`*^9}, {
  3.82228775811563*^9, 3.8222877581166267`*^9}},
 CellID->540659062,ExpressionUUID->"e639489e-12e0-4f3a-abbb-6dd496c900f1"],

Cell["\<\
The iUnits option value should always be retrieved using the GetEnum function \
with a call like:\
\>", "ExampleText",
 CellChangeTimes->{{3.8222877766889524`*^9, 3.822287824152003*^9}},
 CellID->517921585,ExpressionUUID->"4984ec17-0683-4f16-bd54-527de43646e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetEnum", "[", 
  RowBox[{"1", ",", "\"\<DEFAULT\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.8222879463142557`*^9, 3.822287968791167*^9}},
 CellLabel->"In[45]:=",
 CellID->12002135,ExpressionUUID->"69ef6a8d-48d6-4885-871e-159a3cb9e8c5"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.82228796053026*^9, 3.8222879712715015`*^9}, 
   3.8225221995338984`*^9, 3.829552317916994*^9},
 CellLabel->"Out[45]=",
 CellID->885116424,ExpressionUUID->"173f4008-0e17-4372-92d8-f2df1e25d016"]
}, Open  ]],

Cell["\<\
The enumerated value should be assigned to a variable and used to set the \
iUnits option in subsequent calls to RefProp.\
\>", "ExampleText",
 CellChangeTimes->{{3.8222881757845187`*^9, 3.8222882121193347`*^9}},
 CellID->479995879,ExpressionUUID->"d4a42567-9a7c-4f48-941e-cc1e0fea9d5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"iU", "=", 
  RowBox[{"GetEnum", "[", 
   RowBox[{"1", ",", "\"\<MOLAR ENGLISH\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822287829507678*^9, 3.8222879052720585`*^9}},
 CellLabel->"In[46]:=",
 CellID->633814282,ExpressionUUID->"f4f7e67d-f9bd-4925-9125-023195229377"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.822287909100791*^9, 3.8223256922987413`*^9, 
  3.8225222207930365`*^9, 3.829552321437581*^9},
 CellLabel->"Out[46]=",
 CellID->908619962,ExpressionUUID->"d73a236d-40cd-40ca-a49c-22753af3f1c7"]
}, Open  ]],

Cell["\<\
Call RefProp using the default values to calculate mass density.\
\>", "ExampleText",
 CellChangeTimes->{{3.8223253345346527`*^9, 3.8223253771586747`*^9}},
 CellID->5653564,ExpressionUUID->"f4444f4b-6258-4a91-89d6-8fec76a2c8a5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"22", "\[Degree]C"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["D", "molar"], ",", "MolWt"}], "}"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{
    "\"\<Propane\>\"", ",", "\"\<TP\>\"", ",", "\"\<D M\>\"", ",", "T", ",", 
     "P"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.822325389963419*^9, 3.8223255382936587`*^9}},
 CellLabel->"In[47]:=",
 CellID->8174293,ExpressionUUID->"f5472c87-f290-4749-969e-6180dfba5b66"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"0.04199196614578681`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   TemplateBox[{"44.09562`", 
     RowBox[{
      "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
       "\"kmol\""}], "kilograms per kilomole", 
     FractionBox["\"Kilograms\"", "\"Kilomoles\""]},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{{3.8223255277030134`*^9, 3.8223255403481655`*^9}, 
   3.8225222414807034`*^9, 3.829552326806199*^9},
 CellLabel->"Out[49]=",
 CellID->432030517,ExpressionUUID->"b26f8ef8-0d79-4e07-9bdf-5ad35ab0ddc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Rho]", "mass"], "=", 
  RowBox[{
   SubscriptBox["D", "molar"], "*", "MolWt"}]}]], "Input",
 CellChangeTimes->{{3.8223255564640584`*^9, 3.822325596606717*^9}},
 CellLabel->"In[50]:=",
 CellID->82344146,ExpressionUUID->"2b5166ef-0d3d-459e-9e72-accc55ae6631"],

Cell[BoxData[
 TemplateBox[{"0.0018516617822174797`", 
   RowBox[{
    "\"kg\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "kilograms per liter", 
   FractionBox["\"Kilograms\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.822325603528176*^9, 3.822522245733329*^9, 
  3.829552332025246*^9},
 CellLabel->"Out[50]=",
 CellID->316117934,ExpressionUUID->"77330be3-bf27-4baf-a044-4b33e2359099"]
}, Open  ]],

Cell[TextData[{
 "Convert this SI Quantity to mass-based English units [ lbm/ft\.b3 ] using \
Mathematica's ",
 Cell[BoxData[
  ButtonBox["UnitConvert",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "3c381630-fe91-40b1-8bbe-2b10ef2e3cc1"],
 " function and the pre-defined, convenience units from RefpropLink."
}], "ExampleText",
 CellChangeTimes->{{3.822326202981845*^9, 3.822326263574749*^9}, {
  3.822326361404112*^9, 3.822326372291964*^9}, {3.822327210860043*^9, 
  3.8223273311742387`*^9}},
 CellID->2405490,ExpressionUUID->"068832d0-dd1b-4bd8-b59f-88c12538f497"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   SubscriptBox["\[Rho]", "mass"], ",", 
   RowBox[{"lb", "/", 
    SuperscriptBox["ft", "3"]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.822326270979973*^9, 3.822326312629573*^9}, {
  3.82232634336633*^9, 3.8223263442120976`*^9}},
 CellLabel->"In[51]:=",
 CellID->70836523,ExpressionUUID->"694a6c5a-b30c-4ea6-8363-2067a881e3d9"],

Cell[BoxData[
 TemplateBox[{"0.1155954687406265`", 
   RowBox[{"\"lb\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
     SuperscriptBox["\"ft\"", "3"]}], "pounds per foot cubed", 
   FractionBox["\"Pounds\"", 
    SuperscriptBox["\"Feet\"", "3"]]},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.8223263070843744`*^9, 3.822326313749546*^9}, 
   3.822326347587041*^9, 3.8225222626281686`*^9, 3.82955234179712*^9},
 CellLabel->"Out[51]=",
 CellID->33576814,ExpressionUUID->"ec64bf33-a981-4981-b7d1-d70785c4dac8"]
}, Open  ]],

Cell["\<\
Now call RefProp with non-Quantity values, but converted to the mass-based \
\"ENGLISH\" system of units.  This should output mass density in units of \
lbm/ft\.b3.\
\>", "ExampleText",
 CellChangeTimes->{{3.8223256309687805`*^9, 3.822325676390319*^9}, {
  3.822325993756434*^9, 3.8223259982284784`*^9}, {3.8223260947094135`*^9, 
  3.8223261358054934`*^9}},
 CellID->335340831,ExpressionUUID->"e421e4c7-1ac9-42b1-a655-f3b144accd73"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TF", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{"T", ",", "\[Degree]F"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ppsi", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{"P", ",", "psi"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iEng", "=", 
   RowBox[{"GetEnum", "[", 
    RowBox[{"1", ",", "\"\<ENGLISH\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "'"}], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<TP\>\"", ",", "\"\<D\>\"", ",", "TF", ",", "Ppsi", ",", 
     RowBox[{"iUnits", "\[Rule]", "iEng"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.822325389963419*^9, 3.8223255382936587`*^9}, {
  3.8223257468059807`*^9, 3.822325901061365*^9}, {3.822325945149455*^9, 
  3.822325977454064*^9}, {3.8223260504218693`*^9, 3.822326076397421*^9}, {
  3.8223261550799403`*^9, 3.8223261901810827`*^9}, {3.822326329781665*^9, 
  3.822326330317232*^9}},
 CellLabel->"In[52]:=",
 CellID->481075785,ExpressionUUID->"8e1daca5-e0d0-4ceb-93ff-296023901bc2"],

Cell[BoxData["0.11559546874062643`"], "Output",
 CellChangeTimes->{{3.8223261770392056`*^9, 3.822326192362221*^9}, 
   3.8223263319199457`*^9, 3.8225222720240097`*^9, 3.8295523562265425`*^9},
 CellLabel->"Out[55]=",
 CellID->22280790,ExpressionUUID->"0e7b6cac-d2fd-4abb-a73d-4c25893acb78"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "iMass", "ExampleSubsection",ExpressionUUID->
   "89ebe5ca-c417-4bd6-8467-505d912587af"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8222867607522707`*^9, 
  3.8222867651604795`*^9}},ExpressionUUID->"29ef1272-1156-45d1-b1f7-\
4c7954cdd4d5"],

Cell["Specifies if the input composition is mole or mass based.", \
"ExampleText",
 CellChangeTimes->{{3.8222935551383886`*^9, 3.8222936508823376`*^9}, {
  3.829391167434411*^9, 3.829391172833974*^9}},
 CellID->563465235,ExpressionUUID->"36385b0f-6fec-4273-917e-97b3bbc0659c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "iFlag", "ExampleSubsection",ExpressionUUID->
   "a2287e96-f945-49e7-8efe-6b7e4dfcec0b"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8222867706647587`*^9, 
  3.822286775136769*^9}},ExpressionUUID->"d302b7ca-9306-4623-813f-\
5e324effb878"],

Cell["\<\
Flag to specify if the routine SATSPLN should be called (were a value of 1 \
activates the call).  SATSPLN calculates spline curves for the phase boundary \
of a mixture at a given bulk composition, along with the critical point, \
cricondentherm, and cricondenbar.  As such, this option is not needed (and \
will be ignored) for pure fluids.\
\>", "ExampleText",
 CellChangeTimes->{{3.822293674617854*^9, 3.82229369737795*^9}, {
  3.822293950883168*^9, 3.82229397767352*^9}, {3.822294018721729*^9, 
  3.822294097209795*^9}, {3.822323705654646*^9, 3.822323713103692*^9}},
 CellID->370685820,ExpressionUUID->"1d716b37-b825-497e-a6e1-808c379ba5b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "SatComp", "ExampleSubsection",ExpressionUUID->
   "5ee304f1-2842-4039-a8c2-863309f2486f"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8222867811127844`*^9, 
  3.8222867852168083`*^9}},ExpressionUUID->"701b1804-8879-4af5-a5cd-\
c502cc87db1b"],

Cell[TextData[{
 "By default, the saturated liquid composition, ",
 Cell[BoxData[
  StyleBox["x", "TI"]], "InlineFormula",ExpressionUUID->
  "066c515c-0d79-4774-b782-723879ade43d"],
 ", and the saturated vapor composition, ",
 Cell[BoxData[
  StyleBox["y", "TI"]], "InlineFormula",ExpressionUUID->
  "da13e3b2-b912-4bad-92c4-2abb95e3ca8a"],
 ", are not returned.  If these values are required for a two-phase state, \
call RefProp with the SatComp option set to ",
 Cell[BoxData[
  ButtonBox["True",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "49f65da8-79aa-4363-9f56-753d8620cb2e"],
 ".  The default is ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "8818b1b7-636f-497b-95fa-6a684bd1bcfc"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8222941227375193`*^9, 3.822294214209854*^9}, {
  3.822294433162224*^9, 3.822294441472995*^9}, {3.8225223238773165`*^9, 
  3.8225223544216204`*^9}},
 CellID->81457293,ExpressionUUID->"c5e9cddd-68fe-4532-8b41-1c0d643b2fe4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "SuppresUnits", "ExampleSubsection",ExpressionUUID->
   "cb8329fb-b31e-48e7-9bbf-23f85babe38a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.822286792512331*^9, 
  3.822286796736994*^9}},ExpressionUUID->"c914527d-6704-4b30-b212-\
612a83da7175"],

Cell[TextData[{
 "Normally, the decision to apply units to results from RefProp will be based \
on the type of input parameters passed.  However, some numerical output flags \
do not require inputs in ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "f653b63f-1848-422d-a3ed-c126ab482b53"],
 " and ",
 Cell[BoxData[
  StyleBox["b", "TI"]], "InlineFormula",ExpressionUUID->
  "bb5cf7b9-53f9-41c2-893f-46bcf718d1d0"],
 " and will return results as unit Quantities by default (",
 Cell[BoxData[
  StyleBox["SuppressUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "22812656-50da-4a98-970d-8db561f1404e"],
 " = False).  Setting ",
 Cell[BoxData[
  StyleBox["SuppressUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "c13642dd-3adc-4fc0-a2ca-2a7b421e9c34"],
 " to True will force the results to be returned as non-Quantities."
}], "ExampleText",
 CellChangeTimes->{{3.8222942344018517`*^9, 3.8222945026573477`*^9}, {
  3.8223264901337786`*^9, 3.82232651101193*^9}, {3.8223265804442244`*^9, 
  3.8223266755737743`*^9}},
 CellID->175538712,ExpressionUUID->"8a2fa777-0851-4592-adbb-184c2c97a868"],

Cell[TextData[{
 "Note that if SuppressUnits is True, the numeric values returned will have \
been converted to the 'DEFAULT' unit system for REFPROP ",
 StyleBox["or",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " the unit system specified in ",
 Cell[BoxData[
  StyleBox["iUnits", "TI"]], "InlineFormula",ExpressionUUID->
  "8786152b-2cca-4ec4-8d7f-c77e0e5d5f47"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.8222945207948313`*^9, 3.822294583434291*^9}, {
  3.822326540437235*^9, 3.8223265502150717`*^9}},
 CellID->27212911,ExpressionUUID->"2f6504b4-4405-41ae-8ed3-f83363e38c56"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "b2090435-9d78-489c-b6fa-5c21a601130d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"68d30e1a-f241-4df1-b41c-9e48de3bb35c"],

Cell["\<\
Let's do a \"Round Trip\" in thermodynamic properties for Water.  Note that \
since RefProp always returns numerical results in a ruled list, the 2nd \
element in the 1st row of the result is extracted from each call using List \
indexing.\
\>", "ExampleText",
 CellChangeTimes->{{3.822307490079089*^9, 3.8223075288384476`*^9}, {
  3.822307993221362*^9, 3.822308058094819*^9}},
 CellID->29588054,ExpressionUUID->"ba0441e1-dbd8-4b0d-984f-7ab32ee363ad"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["T", "init"], "=", 
   RowBox[{"72", "\[Degree]F"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["P", "init"], "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["D", "init"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<Water\>\"", ",", "\"\<TP\>\"", ",", "\"\<D\>\"", ",", 
     SubscriptBox["T", "init"], ",", 
     SubscriptBox["P", "init"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.822307535778858*^9, 3.8223076510705147`*^9}},
 CellLabel->"In[56]:=",
 CellID->519984638,ExpressionUUID->"87e82882-5c7c-4cde-801e-1fef40d1d091"],

Cell[BoxData[
 TemplateBox[{"55.38206688848727`", 
   RowBox[{
    "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}], 
   "moles per liter", 
   FractionBox["\"Moles\"", "\"Liters\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{{3.8223076282894526`*^9, 3.8223076545132775`*^9}, 
   3.8225223691392555`*^9, 3.829552366214837*^9},
 CellLabel->"Out[58]=",
 CellID->106693183,ExpressionUUID->"8ed3a129-5b6f-4fe7-8f43-84ad8ef24b76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "init"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<DP\>\"", ",", "\"\<S\>\"", ",", 
     SubscriptBox["D", "init"], ",", 
     SubscriptBox["P", "init"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822307660322739*^9, 3.822307717407078*^9}},
 CellLabel->"In[59]:=",
 CellID->147331416,ExpressionUUID->"f9d24661-29dc-49c4-976e-746a83b98dd6"],

Cell[BoxData[
 TemplateBox[{"5.909997939503048`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8223077242687025`*^9, 3.8225223730986648`*^9, 
  3.8295523709950943`*^9},
 CellLabel->"Out[59]=",
 CellID->167856852,ExpressionUUID->"3d9e4f76-ee2d-4aa2-9f6f-fadd2aace523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["H", "init"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<PS\>\"", ",", "\"\<H\>\"", ",", 
     SubscriptBox["P", "init"], ",", 
     SubscriptBox["S", "init"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822307733403276*^9, 3.8223077818696656`*^9}},
 CellLabel->"In[60]:=",
 CellID->80812962,ExpressionUUID->"388565fc-51f2-45be-a932-b8395cc89f70"],

Cell[BoxData[
 TemplateBox[{"1680.8891215481756`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "joules per mole", 
   FractionBox["\"Joules\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8223077852575755`*^9, 3.8225223768845673`*^9, 
  3.829552374961481*^9},
 CellLabel->"Out[60]=",
 CellID->3611114,ExpressionUUID->"04ff3ff3-9fae-4fe6-9482-385356ef5532"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["T", "final"], "=", 
  RowBox[{
   RowBox[{"RefProp", "[", 
    RowBox[{"\"\<PH\>\"", ",", "\"\<T\>\"", ",", 
     SubscriptBox["P", "init"], ",", 
     SubscriptBox["H", "init"]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822307793002859*^9, 3.8223078682136927`*^9}},
 CellLabel->"In[61]:=",
 CellID->653038716,ExpressionUUID->"35874a2c-9417-4561-bf12-2e007f57b46b"],

Cell[BoxData[
 TemplateBox[{"295.37222222243787`", "\"K\"", "kelvins", "\"Kelvins\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8223078803442745`*^9, 3.822522381138191*^9, 
  3.829552378694501*^9},
 CellLabel->"Out[61]=",
 CellID->108158507,ExpressionUUID->"9523065c-b590-4300-92da-ef51c926b119"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UnitConvert", "[", 
  RowBox[{
   SubscriptBox["T", "final"], ",", "\[Degree]F"}], "]"}]], "Input",
 CellChangeTimes->{{3.822307883236511*^9, 3.8223079068084707`*^9}},
 CellLabel->"In[62]:=",
 CellID->932205397,ExpressionUUID->"79a3d8f5-b249-431d-9776-ad7e3e3a4cc7"],

Cell[BoxData[
 TemplateBox[{
  "72.00000000038818`", "\"\[Degree]F\"", "degrees Fahrenheit", 
   "\"DegreesFahrenheit\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8223079104308023`*^9, 3.822522384863198*^9, 
  3.829552382193146*^9},
 CellLabel->"Out[62]=",
 CellID->348418989,ExpressionUUID->"756579da-e219-4ab7-81cb-fecae57552b5"]
}, Open  ]],

Cell["Bingo!", "ExampleText",
 CellChangeTimes->{{3.8223080786159453`*^9, 3.8223080802306128`*^9}},
 CellID->8661092,ExpressionUUID->"e4a47fc5-1c4a-49b1-b185-83080aa300bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Setting REFPROP Flags and File Path", "ExampleSection",ExpressionUUID->
   "bedc068e-469b-4fd5-9b3f-cb861e9ae018"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.829391369003703*^9, 3.8293913813157864`*^9}, {
  3.829391975619532*^9, 3.8293919935795155`*^9}},
 CellID->2123667759,ExpressionUUID->"fddbda8e-80a1-4197-b6e1-8c6febe633eb"],

Cell[TextData[{
 "While setting the file paths to the REFPROP fluids/mixtures files and \
changing REFPROP behavior flags can be accomplished by calling ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " with specific hIn and hOut values, separate high-level functions, ",
 Cell[BoxData[
  ButtonBox["SetPath",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/SetPath"]], "InlineFormula",
  ExpressionUUID->"6dbb3444-c810-4284-b766-197c5b5b302a"],
 " and ",
 Cell[BoxData[
  ButtonBox["Flags",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Flags"]], "InlineFormula",
  ExpressionUUID->"1ef0161a-6ded-4408-94ea-d3107a7c0a4a"],
 ", are available to accomplishing these tasks more simply.  See the symbol \
pages for these two functions for further information."
}], "ExampleText",
 CellChangeTimes->{{3.829391759746686*^9, 3.829391957652568*^9}, {
  3.8293920476120553`*^9, 3.8293920775390663`*^9}},
 CellID->565963010,ExpressionUUID->"f39a84cd-c070-48b6-9601-9c339d28501f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Setting Reference States", "ExampleSection",ExpressionUUID->
   "3c5394c8-f229-4393-bf7b-c3bac6774f5f"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.829391369003703*^9, 3.8293913813157864`*^9}},
 CellID->224902139,ExpressionUUID->"6c7f3288-6576-4af8-93b4-7e6a8edd6b11"],

Cell[TextData[{
 "Unlike SetPath and Flags, there is no high-level function call to match the \
legacy API call, SETREFdll, for changing the reference state used for the \
relative energy properties (H, E, S).  The reference state can be set (and \
cleared) through the ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " routine by setting specific strings in ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "934c1fd0-f817-4253-ae28-ea27c4a25eea"],
 " and ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "89292ccb-ccd5-4176-acf2-40fdaea1634e"],
 ".  Of course, for now, one can always call the legacy API function using ",
 Cell[BoxData[
  ButtonBox["setref",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setref"]], "InlineFormula",
  ExpressionUUID->"6d10c452-2ea3-4423-8348-b7006e7f0717"],
 " (see symbol page for details)."
}], "ExampleText",
 CellChangeTimes->{{3.829391759746686*^9, 3.829391957652568*^9}, {
  3.8293920906191006`*^9, 3.8293921309233437`*^9}, {3.829392165458982*^9, 
  3.8293924312374015`*^9}},
 CellID->654255733,ExpressionUUID->"df6b16de-bd71-45dd-892d-9387cd06cfcb"],

Cell[TextData[{
 StyleBox["WARNING:",
  FontWeight->"Bold"],
 " Flip-flopping between reference states in the same session is a ",
 StyleBox["very bad idea",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", because of Mathematica's top down calculation precedence and REFPROP's \
shared state on the machine.  Best practice is to set the reference state at \
the beginning of a session ",
 StyleBox["and leave it there",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ".  A reference state set in one notebook will affect the reference state in \
use in other open notebooks!"
}], "ExampleText",
 CellChangeTimes->{{3.829552782287465*^9, 3.8295528878571863`*^9}},
 Background->RGBColor[1, 0.925, 0.925],
 CellID->221000941,ExpressionUUID->"eb54026e-a824-4aa7-9c2f-ff71869dc867"],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8abb156d-4866-411c-82c0-16f90ccaa0e6"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->15032368,ExpressionUUID->"70db57bc-7d78-4a97-b05c-213289aaaaba"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Get Current Reference State", "ExampleSubsection",ExpressionUUID->
   "687aebca-8e21-4534-bdd0-e01a45b40599"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8241159523374844`*^9, 3.824115953382717*^9}, {
  3.8294598221971407`*^9, 3.829459845282419*^9}},
 CellID->437872522,ExpressionUUID->"c2a265c2-c6e8-414e-b7c9-12ca7be539da"],

Cell["\<\
To query which reference state is currently being used, call RefProp with \
hOut = \"REFSTATE\".  All other parameters can be zero or blank or omitted, \
as appropriate.\
\>", "ExampleText",
 CellChangeTimes->{{3.8294012941414814`*^9, 3.8294013807738633`*^9}},
 CellID->244453139,ExpressionUUID->"eb5b974b-4705-459c-ba06-8a5931042614"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<REFSTATE\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.829401385554083*^9, 3.8294013887186227`*^9}, {
  3.8294014265335207`*^9, 3.8294014380936146`*^9}},
 CellLabel->"In[63]:=",
 CellID->639279859,ExpressionUUID->"616699a8-cd9a-4d44-8061-1e61df50699f"],

Cell[BoxData["\<\"OTH\"\>"], "Output",
 CellChangeTimes->{
  3.8294014404064307`*^9, 3.829401696788972*^9, 3.8294022421578856`*^9, 
   3.8294116015837336`*^9, {3.82941167172025*^9, 3.8294116973237653`*^9}, 
   3.8295523913407016`*^9},
 CellLabel->"Out[63]=",
 CellID->106950301,ExpressionUUID->"237f6d5d-2d06-459e-98a7-21ce9d2175e4"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "3da0b9cf-471d-46fc-bc8e-fd5506b9518c"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->179155221,ExpressionUUID->"325159fc-f819-4a5a-9478-9b26cb2ebadc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Valid Reference States", "ExampleSubsection",ExpressionUUID->
   "26fc2ae7-4844-4752-8f71-8a2977fe9158"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8241159523374844`*^9, 3.824115953382717*^9}, {
  3.8294597842994623`*^9, 3.829459790522854*^9}},
 CellID->322697447,ExpressionUUID->"518ab120-b06e-4a63-bf00-7caeb701fcce"],

Cell[TextData[{
 "To set the reference state, call ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 " with ",
 Cell[BoxData[
  StyleBox["hIn", "TI"]], "InlineFormula",ExpressionUUID->
  "2c9edbd6-d8d3-4bd0-b630-7cfdb606260a"],
 " set to \"SETREF\".  "
}], "ExampleText",
 CellChangeTimes->{{3.8294006588071113`*^9, 3.829400732613778*^9}, 
   3.8294007666826797`*^9},
 CellID->336495556,ExpressionUUID->"f44f56f5-6928-4649-9af4-3efae4089035"],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "86dd1451-7f04-4ec3-8e23-818db6133c40"],
 " parameter can be set to one of the following 3-character strings:\
\[LineSeparator]"
}], "ExampleText",
 CellChangeTimes->{{3.8294008103978047`*^9, 3.82940091003741*^9}, {
   3.82940097733648*^9, 3.8294009907087307`*^9}, 3.829401103889136*^9},
 CellID->10789287,ExpressionUUID->"75fbd004-c567-4ddd-84ea-86d8de9b5e1e"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "23912181-478d-4e24-98d3-b9652167398d"], Cell[
    "\"DEF\"", "TableText",ExpressionUUID->
     "8a057d8a-d0c0-48c3-a0e3-f772f90b6735"], Cell[
    "Default", "TableText",ExpressionUUID->
     "94f551ff-ab0c-40ff-b675-dd2a87a58dc7"], Cell[
    "Specified in fluid file.", "TableText",ExpressionUUID->
     "58c18ea2-ed1c-4354-8707-6b3ba38a07c8"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "cc05b110-da1b-45f0-ab5b-2f5f67b503a1"], Cell[
    "\"NBP\"", "TableText",ExpressionUUID->
     "92de5f82-3504-44d2-b647-86e237623e4d"], Cell[
    "Normal Boiling Point", "TableText",ExpressionUUID->
     "cd1035e3-481e-41ea-adcc-13637e9fd13a"], Cell[
    "h, s = 0 at pure component normal boiling point", "TableText",
     ExpressionUUID->"bd20d6a5-8220-474d-a5c6-dd46d672f1b1"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "3c73e10f-8d60-4fa4-8c4b-19695a72d8a1"], Cell[
    "\"ASH\"", "TableText",ExpressionUUID->
     "4e3a5c67-6579-45e8-9d19-e57e0a377e0c"], Cell[
    "ASHREA", "TableText",ExpressionUUID->
     "2de42974-a012-4bc5-9f2a-f7390dc694a2"], Cell[
    "h, s = 0 for sat. liquid @ -40\[Degree]C", "TableText",ExpressionUUID->
     "41c6acff-5cec-4332-b427-a7af09cfd1ea"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "6ff74f0a-5e31-467a-8411-593926972778"], Cell[
    "\"IIR\"", "TableText",ExpressionUUID->
     "5f80b958-0d05-4e61-a70a-a40c2219ef40"], Cell[
    "Int'l Inst. of Refrig.", "TableText",ExpressionUUID->
     "e7d95c24-51d5-4a53-be68-396836de5ea2"], Cell[
    "h = 200 kJ/kg, s = 1 kJ/kg-K for sat. liquid at 0\[Degree]C", 
     "TableText",ExpressionUUID->"feb410f4-2ee0-46a0-9ecf-eb7828f797f1"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "d329cdc1-e868-4223-a35f-670628368c30"], Cell[
    "\"OTH\"", "TableText",ExpressionUUID->
     "2cfe1dc8-5427-46b9-89eb-cb08217dc97e"], Cell[
    "Other (real gas state)", "TableText",ExpressionUUID->
     "42f2854e-b2e6-4304-9847-e8bb5e89a448"], Cell[
    "As specified by h0, s0, T0, and P0", "TableText",ExpressionUUID->
     "e4c120a1-5fd3-4f96-b633-455782f60a52"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "c38166fd-476f-4f5a-827d-1ff49dab1d89"], Cell[
    "\"OT0\"", "TableText",ExpressionUUID->
     "5fa51558-d953-4c1e-b76d-ae7a9148a2af"], Cell[
    "Other (ideal gas state)", "TableText",ExpressionUUID->
     "d635db83-db8b-41e5-9811-0d02bc5ef6c4"], Cell[
    "As specified by h0, s0, T0, and P0", "TableText",ExpressionUUID->
     "fdab9b24-9346-4b0b-9479-53c72344b5e5"]}
  }]], "3ColumnTableMod",
 CellChangeTimes->{{3.818150939295529*^9, 3.818151189678029*^9}, {
  3.8241103938276124`*^9, 3.8241105157794247`*^9}, {3.829401039317768*^9, 
  3.829401043645199*^9}, {3.829401074957487*^9, 3.8294010765252953`*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.04], 
     Scaled[0.1], 
     Scaled[0.25], {
      Scaled[0.61]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->450279320,ExpressionUUID->"990b4745-1d58-48cb-9925-6d0ecfede189"],

Cell["For example:", "ExampleText",
 CellChangeTimes->{{3.829401494453931*^9, 3.829401498517069*^9}},
 CellID->65467221,ExpressionUUID->"7b9dea6f-6b72-4a65-a541-890f2c969e68"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<SETREF\>\"", ",", "\"\<NBP\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.829401543956582*^9, 3.8294015740052433`*^9}, {
  3.829402292902216*^9, 3.8294022935893793`*^9}},
 CellLabel->"In[64]:=",
 CellID->69868590,ExpressionUUID->"be431cf0-96a8-47ea-9e19-755f288a7f5d"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "PurSet", 
   "\"INFO: Reference State \
[\\!\\(\\*RowBox[{\\\"\\\\\\\"NBP\\\\\\\"\\\"}]\\)] has been set for pure \
fluid.\"", 2, 64, 1, 33611022450468502978, "Local", "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8294116086428595`*^9, 3.8294117037137156`*^9, 
  3.829552400586969*^9},
 CellLabel->"During evaluation of In[64]:=",
 CellID->258985906,ExpressionUUID->"b01ebde5-ffb8-4095-8e22-de0aa1e94472"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9f179901-2039-42b5-9b6a-b6bc92d70085"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->147069584,ExpressionUUID->"c19874fc-e426-4c9f-a015-e79eedcf5707"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Custom Reference States", "ExampleSubsection",ExpressionUUID->
   "fdcea466-e00d-44c8-b7aa-d1081ebc2d1f"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8294617942521925`*^9, 3.829461800917373*^9}},
 CellID->707909270,ExpressionUUID->"6f4ae236-081a-4e17-b901-0c46413f8df5"],

Cell[TextData[{
 "For the OTH and OT0 options, the values of h0, s0, T0, and P0 should be \
included in the ",
 Cell[BoxData[
  StyleBox["hOut", "TI"]], "InlineFormula",ExpressionUUID->
  "1a31a2fc-7dd5-4b10-bdf7-dd52445b1395"],
 " variable, separated by semicolons. For example:"
}], "ExampleText",
 CellChangeTimes->{{3.8294011433685846`*^9, 3.829401167387397*^9}},
 CellID->440509322,ExpressionUUID->"bf3a70e4-b6b7-4c40-80f8-2b752608ca8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hOut", "=", "\"\<OTH;0.0;0.0;273.16;101.325\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.8294011727859354`*^9, 3.8294012013176813`*^9}, 
   3.829411741103744*^9, {3.829461857050327*^9, 3.82946189734659*^9}, {
   3.8294619904506702`*^9, 3.8294620021623573`*^9}, 3.8294620773074503`*^9},
 CellLabel->"In[65]:=",
 CellID->317777973,ExpressionUUID->"8efb7f29-c601-4a94-94c6-90d914a4b339"],

Cell["\<\
This would set the enthalpy to 0 J/mol and the entropy to 0 J/mol-K at 273.16 \
K (0 \[Degree]C) 101.325 kPa (1 atm). \
\>", "ExampleText",
 CellChangeTimes->{{3.829413143118806*^9, 3.8294132003916836`*^9}, 
   3.829459400028842*^9, {3.82946190751338*^9, 3.8294619556576643`*^9}, {
   3.8294620138660665`*^9, 3.8294620393140297`*^9}},
 CellID->244578341,ExpressionUUID->"ea000fbc-23e1-4fc0-9fdd-a0342bf9df60"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetFluids", "[", "\"\<AIR.ppf\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8294620886800447`*^9, 3.8294621081389914`*^9}},
 CellLabel->"In[66]:=",
 CellID->43219570,ExpressionUUID->"07dcee6c-e973-4de4-8817-85d9271bd93c"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.829462114661581*^9, 3.8294625994255266`*^9, 
  3.82946277705266*^9, 3.8294628736833134`*^9, 3.829552415218849*^9},
 CellLabel->"Out[66]=",
 CellID->12429019,ExpressionUUID->"67b13303-acd1-450c-af83-40726dd4ba0b"]
}, Open  ]],

Cell["See the default reference state for this fluid.", "ExampleText",
 CellChangeTimes->{{3.8294621270843678`*^9, 3.82946215773143*^9}},
 CellID->95735659,ExpressionUUID->"3570040e-34d4-4244-8a2d-c78d9192ad4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<REFSTATE\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.829462161218109*^9, 3.8294621777419033`*^9}},
 CellLabel->"In[67]:=",
 CellID->21485577,ExpressionUUID->"198d3f61-0a1b-434a-ab9e-2dfb4ce82950"],

Cell[BoxData["\<\"NBP\"\>"], "Output",
 CellChangeTimes->{3.82946218283631*^9, 3.829462606737949*^9, 
  3.8294627801663365`*^9, 3.8294628782899923`*^9, 3.82955242120883*^9},
 CellLabel->"Out[67]=",
 CellID->154439282,ExpressionUUID->"ed924adf-7068-4dfa-ab1a-5ea38b223402"]
}, Open  ]],

Cell["Switch to a custom reference state as defined in hOut above.", \
"ExampleText",
 CellChangeTimes->{{3.8294621913076625`*^9, 3.829462206642663*^9}},
 CellID->275814129,ExpressionUUID->"aa61f22b-44fc-4a59-9f32-0210cdcad953"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<SETREF\>\"", ",", "hOut", ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.8294622265913277`*^9, 3.829462251540597*^9}, 
   3.8294623903963833`*^9, {3.8294626181803875`*^9, 3.829462618227256*^9}},
 CellLabel->"In[68]:=",
 CellID->64234814,ExpressionUUID->"4ee44c6f-765f-46ae-9cd7-f6f6b54a6952"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "PurSet", 
   "\"INFO: Reference State \
[\\!\\(\\*RowBox[{\\\"\\\\\\\"OTH;0.0;0.0;273.16;101.325\\\\\\\"\\\"}]\\)] \
has been set for pure fluid.\"", 2, 68, 2, 33611022450468502978, "Local", 
   "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8294629125264597`*^9, 3.829552426022936*^9},
 CellLabel->"During evaluation of In[68]:=",
 CellID->103953610,ExpressionUUID->"19737e99-86f2-4322-8cfc-67abfd372c10"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "9700af6f-48aa-4b72-859d-7529ef82a239"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->173756800,ExpressionUUID->"b2f4529f-b8b1-45c0-8abb-298ac5265e80"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Reset the Reference Sate", "ExampleSubsection",ExpressionUUID->
   "38614286-309e-4bf4-b821-9f1b2f121db4"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8241159523374844`*^9, 3.824115953382717*^9}, {
  3.829459860482812*^9, 3.829459868554202*^9}},
 CellID->143918462,ExpressionUUID->"0b98b1de-e613-4005-a628-d6dfab80d9bc"],

Cell["\<\
To reset the reference state back to its original setting use hIn = \
\"SETREFOFF\".\
\>", "ExampleText",
 CellChangeTimes->{{3.8294129944642735`*^9, 3.8294130370085*^9}},
 CellID->134642702,ExpressionUUID->"32ee1282-2f30-4092-a1b0-fab9c0d5a411"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<SETREFOFF\>\"", ",", "\"\<\>\"", ",", "0", ",", "0"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8294130408771877`*^9, 3.8294130670162997`*^9}},
 CellLabel->"In[69]:=",
 CellID->38576865,ExpressionUUID->"7416c4d3-cc26-4601-ba72-fe93a6187c76"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "refreset", "\"INFO: Reference State reset successful.\"", 2, 69,
    3, 33611022450468502978, "Local", "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8294130726103497`*^9, 3.829461719134055*^9, 
  3.82946292818357*^9, 3.8294629811090975`*^9, 3.8295524660349884`*^9},
 CellLabel->"During evaluation of In[69]:=",
 CellID->9482838,ExpressionUUID->"d268ed43-95be-4d5f-9b3b-0349e5eb80f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<REFSTATE\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellLabel->"In[70]:=",
 CellID->99754731,ExpressionUUID->"06e201e4-4d6a-4731-aa1e-6f5d2835ec00"],

Cell[BoxData["\<\"NBP\"\>"], "Output",
 CellChangeTimes->{3.8294130873219824`*^9, 3.8294617224272556`*^9, 
  3.829462984695509*^9, 3.8295524713238535`*^9},
 CellLabel->"Out[70]=",
 CellID->63170197,ExpressionUUID->"c3274e20-dd49-406c-ad1a-fbdd991da197"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "7bcc1d27-02f6-41b1-9385-330f5724f729"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->31568737,ExpressionUUID->"0973223a-3ab4-4c80-9973-886e45e6e4d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Mixtures", "ExampleSubsection",ExpressionUUID->
   "0b841f08-d18b-4f7f-b846-203538db066c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8241159523374844`*^9, 3.824115953382717*^9}},
 CellID->267651956,ExpressionUUID->"3712d2ab-4046-4186-9dd3-6cc0a1a12285"],

Cell[TextData[{
 "For mixtures, set the reference state for the composition in use by setting \
the value of the numeric parameter ",
 Cell[BoxData[
  StyleBox["a", "TI"]], "InlineFormula",ExpressionUUID->
  "503b25b6-fddd-45d2-b2f0-0dac8bc0804e"],
 " to 2, but passing the mixture composition in z will force a to be 2 if it \
is left at 0.  This will set the variable labeled ",
 Cell[BoxData[
  StyleBox["ixflag", "TI"]], "InlineFormula",ExpressionUUID->
  "9afa44d0-37f1-44c8-8906-8ecce2f4afcf"],
 " in subroutine SETREF called by ",
 StyleBox["RefProp",
  FontWeight->"Bold"],
 ". All other options for this command are also explained in the SETUP.FOR \
file."
}], "ExampleText",
 CellChangeTimes->{{3.8294594194768553`*^9, 3.8294596068020477`*^9}, {
  3.8294596393300796`*^9, 3.829459682296176*^9}, {3.829461568123764*^9, 
  3.829461629266297*^9}},
 CellID->135705949,ExpressionUUID->"d3811591-ed0a-49a0-a356-5445c7086152"],

Cell["\<\
Set reference state to default (DEF) before loading the mixture, clearing any \
previous settings.\
\>", "ExampleText",
 CellChangeTimes->{{3.829552609922267*^9, 3.829552645944957*^9}},
 CellID->241690552,ExpressionUUID->"3e0104b2-b1fe-4080-b6a2-f80db004f81f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<SETREF\>\"", ",", "\"\<DEF\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.829552545715951*^9, 3.8295525490739765`*^9}},
 CellLabel->"In[72]:=",
 CellID->561106203,ExpressionUUID->"d4df2cdd-8144-4854-80fe-6dc0e174aaf7"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "PurSet", 
   "\"INFO: Reference State \
[\\!\\(\\*RowBox[{\\\"\\\\\\\"DEF\\\\\\\"\\\"}]\\)] has been set for pure \
fluid.\"", 2, 72, 5, 33611022450468502978, "Local", "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.829552550921011*^9},
 CellLabel->"During evaluation of In[72]:=",
 CellID->184193734,ExpressionUUID->"0b8c6e66-6911-4be1-8379-6918b3944f12"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", "=", 
  RowBox[{"SetMixture", "[", "\"\<R410A.MIX\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.829459896160424*^9, 3.8294599437551746`*^9}},
 CellLabel->"In[73]:=",
 CellID->172974039,ExpressionUUID->"d934297a-4508-4a4b-a4a6-da81cbec779e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.697614699375863`", ",", "0.302385300624138`"}], "}"}]], "Output",
 CellChangeTimes->{{3.8294599335574093`*^9, 3.829459944879141*^9}, 
   3.829461535888981*^9, 3.8294628368068748`*^9, {3.8294629337855916`*^9, 
   3.8294629624779143`*^9}, 3.829552509665312*^9, 3.8295525586972485`*^9},
 CellLabel->"Out[73]=",
 CellID->311256720,ExpressionUUID->"7c565b80-4eb1-44f3-bb74-cc6994c10d27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<REFSTATE\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.829460020130001*^9, 3.8294600299457088`*^9}},
 CellLabel->"In[74]:=",
 CellID->4717292,ExpressionUUID->"06e40669-b685-4d84-81fd-4c4d563d3c47"],

Cell[BoxData["\<\"IIR\"\>"], "Output",
 CellChangeTimes->{3.829460034660104*^9, 3.8294615410651407`*^9, 
  3.8294629666257915`*^9, 3.8295526544901447`*^9},
 CellLabel->"Out[74]=",
 CellID->39702558,ExpressionUUID->"bba170c2-193b-424a-99b7-d467c8561701"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{
  "\"\<SETREF\>\"", ",", "\"\<NBP\>\"", ",", "0", ",", "0", ",", "z"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8294600442305455`*^9, 3.8294600723383684`*^9}, {
  3.829460128163144*^9, 3.8294601288981795`*^9}, {3.8294629719795055`*^9, 
  3.829462972002417*^9}},
 CellLabel->"In[75]:=",
 CellID->481169655,ExpressionUUID->"5709fd4f-6fdd-483e-ac02-65c08257a2a8"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "MixSet", 
   "\"INFO: Reference State \
[\\!\\(\\*RowBox[{\\\"\\\\\\\"NBP\\\\\\\"\\\"}]\\)] has been set for the \
mixture composition.\"", 2, 75, 6, 33611022450468502978, "Local", 
   "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.829460079508231*^9, 3.8294601305497713`*^9, 
  3.82946170513249*^9, 3.829462975938919*^9, 3.8295526596693*^9},
 CellLabel->"During evaluation of In[75]:=",
 CellID->12372063,ExpressionUUID->"69bcdea3-4dc1-4c14-9924-0e588c1e45a0"]
}, Open  ]],

Cell["\<\
Reset the reference state back to its original setting use hIn = \
\"SETREFOFF\".\
\>", "ExampleText",
 CellChangeTimes->{{3.8294129944642735`*^9, 3.8294130370085*^9}, 
   3.8295524981850343`*^9},
 CellID->258331605,ExpressionUUID->"d8049fb5-342d-48b7-9c9d-7ec65b2202c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RefProp", "[", 
   RowBox[{"\"\<SETREFOFF\>\"", ",", "\"\<\>\"", ",", "0", ",", "0"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8294130408771877`*^9, 3.8294130670162997`*^9}},
 CellLabel->"In[76]:=",
 CellID->502525237,ExpressionUUID->"7eca2eba-9d6f-4ae1-8ab6-d99207fe4be9"],

Cell[BoxData[
 TemplateBox[{
  "RefProp", "refreset", "\"INFO: Reference State reset successful.\"", 2, 76,
    7, 33611022450468502978, "Local", "RefpropLink`RefProp"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.8294130726103497`*^9, 3.829461719134055*^9, 
  3.82946292818357*^9, 3.8294629811090975`*^9, 3.829552667331812*^9},
 CellLabel->"During evaluation of In[76]:=",
 CellID->168581335,ExpressionUUID->"9d5bd282-9d29-4bd8-a7b8-1a24bd6155f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RefProp", "[", 
  RowBox[{"\"\<\>\"", ",", "\"\<REFSTATE\>\"", ",", "0", ",", "0"}], 
  "]"}]], "Input",
 CellLabel->"In[77]:=",
 CellID->150939051,ExpressionUUID->"bb78fee9-f1cd-4a30-b883-bfca097e9f75"],

Cell[BoxData["\<\"IIR\"\>"], "Output",
 CellChangeTimes->{3.8294130873219824`*^9, 3.8294617224272556`*^9, 
  3.829462984695509*^9, 3.829552671632313*^9},
 CellLabel->"Out[77]=",
 CellID->986650257,ExpressionUUID->"2294867b-80ab-4d98-8a19-c2f1e5c2e9c6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "63be0b80-0d52-4068-8b0d-425221a57b45"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"8a312181-3daa-4bbb-9a70-e8612f3ad263"],

Cell[TextData[{
 "Loading a fluids list with ",
 Cell[BoxData[
 "RefProp"], "InlineFormula",ExpressionUUID->
  "10305ef9-d5a0-4518-b863-3965b7b7f47c"],
 " in one notebook will affect the fluids list currently loaded in all other \
open notebooks.  See notes under ",
 StyleBox["Scope",
  FontWeight->"Bold"],
 " above."
}], "ExampleText",
 CellChangeTimes->{{3.8181545880272665`*^9, 3.8181546908473644`*^9}, {
  3.822327126115738*^9, 3.822327150198295*^9}},
 CellID->490768203,ExpressionUUID->"3d52b195-6b3b-4603-9151-06950f021988"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "743438c5-bd13-4d9f-bffa-b916088ad1d5"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"1e26837d-54be-49a3-9303-f010fc6677b0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "1e688196-66fb-49bf-b68a-541077024364"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"6e6ce648-e048-406f-8405-47387ff8b508"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-984, Automatic}, {Automatic, 85}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"5ec9c897-2e63-492a-ab6b-dacdef1f2e7c"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[70526, 1830, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"e73b4edf-29b4-4653-9e72-e2e368488956",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 137457, 3625}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 668, 15, 22, "History",ExpressionUUID->"ff69b119-4755-4390-b284-a916685796fe",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1251, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"e9437d19-95aa-4084-8c99-52e7e31e28cd",
 CellID->1122911449],
Cell[1377, 42, 134, 2, 31, "Categorization",ExpressionUUID->"a9041485-cbeb-4084-b73f-ed6c1bc82224",
 CellID->686433507],
Cell[1514, 46, 147, 2, 31, "Categorization",ExpressionUUID->"e89cdb66-59d9-4831-9b1a-2bceac5c3eb4",
 CellID->122268461],
Cell[1664, 50, 135, 2, 31, "Categorization",ExpressionUUID->"6361c56c-1e94-4518-b2ed-d566c357b3e8",
 CellID->60582034],
Cell[1802, 54, 143, 2, 31, "Categorization",ExpressionUUID->"0bfa938a-270c-431b-9624-b5a416f21c18",
 CellID->323239901]
}, Closed]],
Cell[CellGroupData[{
Cell[1982, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"4358f7dc-847f-4497-bbc8-b099f64bfa29",
 CellID->477174294],
Cell[2095, 64, 173, 2, 17, "Keywords",ExpressionUUID->"e87acf2b-9abe-4a2d-a750-0de825f42504",
 CellID->1164421360],
Cell[2271, 68, 177, 2, 17, "Keywords",ExpressionUUID->"575e45b5-cb06-4e8f-b763-8835c365fb2e",
 CellID->57215434],
Cell[2451, 72, 174, 2, 17, "Keywords",ExpressionUUID->"059b9f90-7086-45be-ab43-7492ddb7517c",
 CellID->102187194],
Cell[2628, 76, 172, 2, 17, "Keywords",ExpressionUUID->"97eb740d-d01e-4b50-b2f6-b48a1a2a8261",
 CellID->15905788],
Cell[2803, 80, 172, 2, 17, "Keywords",ExpressionUUID->"414da9ac-2707-4943-8fd3-c3832430ecb7",
 CellID->232218335]
}, Closed]],
Cell[CellGroupData[{
Cell[3012, 87, 120, 1, 17, "TemplatesSection",ExpressionUUID->"4fa27d66-fd91-4d33-b999-d3623105588c",
 CellID->1872225408],
Cell[3135, 90, 149, 2, 70, "Template",ExpressionUUID->"120efc8d-99e2-4a40-8689-76edd23070eb",
 CellID->1562036412],
Cell[3287, 94, 137, 2, 70, "Template",ExpressionUUID->"2a467744-056b-4aec-836b-abd1975f447c",
 CellID->158391909],
Cell[3427, 98, 136, 2, 70, "Template",ExpressionUUID->"81a09489-6ffc-44ac-aa78-207669ad275c",
 CellID->1360575930],
Cell[3566, 102, 137, 2, 70, "Template",ExpressionUUID->"aabb01a6-ea44-4b5c-abb5-2b32885f8c0f",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3740, 109, 108, 1, 17, "DetailsSection",ExpressionUUID->"990165ef-dcfa-4d8c-8d0d-f750d4a39166",
 CellID->307771771],
Cell[3851, 112, 202, 3, 31, "Details",ExpressionUUID->"06431f48-dfc4-4394-aa7b-17d2abfb655b",
 CellID->670882175],
Cell[4056, 117, 198, 3, 31, "Details",ExpressionUUID->"6fde0a76-c41a-457e-b0cf-3425e3b1d7e8",
 CellID->350963985],
Cell[4257, 122, 197, 3, 31, "Details",ExpressionUUID->"cfc42036-50f3-4101-8693-3850afd8bef8",
 CellID->8391405],
Cell[4457, 127, 124, 2, 31, "Details",ExpressionUUID->"409f7690-6ead-419d-b0be-fca713851767",
 CellID->3610269],
Cell[4584, 131, 116, 2, 31, "Details",ExpressionUUID->"b43a75c4-4b6c-4520-947f-15db1eb2acc5",
 CellID->401364205],
Cell[4703, 135, 116, 2, 31, "Details",ExpressionUUID->"bf1cfcd4-3c5e-4070-9d23-7bd389b31f46",
 CellID->350204745],
Cell[4822, 139, 118, 2, 31, "Details",ExpressionUUID->"58f9e3df-d6e3-4797-9f5b-ddb6f0f0be8b",
 CellID->732958810],
Cell[4943, 143, 133, 2, 31, "Details",ExpressionUUID->"dfcca5c1-09f5-4dde-996f-67f4a11abe4d",
 CellID->222905350],
Cell[5079, 147, 122, 2, 31, "Details",ExpressionUUID->"2fbba7ea-4fd7-49cb-bb5a-85869b15039d",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[5238, 154, 105, 1, 62, "ObjectName",ExpressionUUID->"fd0729c5-4de6-4e76-a28f-7b03895db604",
 CellID->1224892054],
Cell[5346, 157, 2688, 69, 187, "Usage",ExpressionUUID->"092f91e1-7846-410d-88a0-07bada8e6d6a"],
Cell[8037, 228, 532, 8, 65, "Notes",ExpressionUUID->"0eac8219-051d-446a-9434-01ebf7fc6ec0",
 CellID->624753498],
Cell[8572, 238, 2129, 49, 137, "Notes",ExpressionUUID->"499843e2-552b-45a1-a29f-40129f21cb94",
 CellID->144423870],
Cell[10704, 289, 807, 19, 54, "Notes",ExpressionUUID->"25dcf315-80e5-40cb-8952-325d6ae34775",
 CellID->77125597],
Cell[11514, 310, 608, 12, 39, "Notes",ExpressionUUID->"477e81c2-d1b0-4a31-8787-5b0292f1ff5e",
 CellID->447888874],
Cell[12125, 324, 604, 10, 37, "Notes",ExpressionUUID->"52df1cc0-8c8f-4de0-af8d-43560c66680a",
 CellID->508579624],
Cell[12732, 336, 1078, 22, 57, "Notes",ExpressionUUID->"d272477a-f42f-464c-96e2-2cc06e783983",
 CellID->764629902],
Cell[13813, 360, 1575, 34, 84, "Notes",ExpressionUUID->"e9100c59-08c0-44da-8c2a-8f76453dbc6e",
 CellID->158012527],
Cell[15391, 396, 1908, 35, 142, "Notes",ExpressionUUID->"96654bcb-b8f7-47da-8ea3-2cb4fa23cdf4",
 CellID->336978024],
Cell[17302, 433, 1089, 17, 110, "Notes",ExpressionUUID->"bbe2075e-3619-4cae-9ccc-e5aa3bc5df41",
 CellID->14894828],
Cell[18394, 452, 3268, 81, 133, "Notes",ExpressionUUID->"efae783d-f332-49b0-935a-143bef5920c7",
 CellID->809966067],
Cell[21665, 535, 1423, 34, 74, "Notes",ExpressionUUID->"9cac60c5-f47f-4f60-9d34-5d566d4de469",
 CellID->34620489],
Cell[23091, 571, 471, 9, 38, "Notes",ExpressionUUID->"35a4f9fe-6415-402d-bbd8-cf2092238dd8"],
Cell[23565, 582, 3486, 79, 140, "3ColumnTableMod",ExpressionUUID->"1cf4347e-1bf7-4d88-a8f1-babdf230ed60",
 CellID->44868052],
Cell[27054, 663, 432, 8, 37, "Notes",ExpressionUUID->"6e61e922-42be-47df-8acb-48aa376658f5",
 CellID->8270684]
}, Open  ]],
Cell[CellGroupData[{
Cell[27523, 676, 112, 1, 44, "TutorialsSection",ExpressionUUID->"9ee526dc-2432-4276-8dc6-116ef6b6a35e",
 CellID->250839057],
Cell[27638, 679, 326, 5, 16, "Tutorials",ExpressionUUID->"1a7ef1b3-ae25-46cc-a513-dd110ebec21b",
 CellID->341631938],
Cell[27967, 686, 319, 5, 16, "Tutorials",ExpressionUUID->"1a2ee19b-0629-47e8-8637-a852032e09fd",
 CellID->180276538],
Cell[28289, 693, 394, 6, 16, "Tutorials",ExpressionUUID->"e80ced4f-54a2-4284-8195-9b3e8d2e4ba1",
 CellID->5631748],
Cell[28686, 701, 401, 6, 16, "Tutorials",ExpressionUUID->"7964926c-fbed-4d45-a1e9-172d8017024c",
 CellID->226078180]
}, Open  ]],
Cell[CellGroupData[{
Cell[29124, 712, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"d0a5496e-8070-419c-ac7f-3de721a332ba",
 CellID->1268215905],
Cell[29265, 715, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"f4d6e7fc-2a66-466c-b0bf-53a8537f24d9",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[29415, 721, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"720d9ac5-efa2-4582-926f-824ce2ee72ab",
 CellID->1584193535],
Cell[29538, 724, 421, 10, 16, "RelatedLinks",ExpressionUUID->"f9d14a93-84c8-4f9c-9fe7-b09331c02944",
 CellID->1038487239],
Cell[29962, 736, 389, 9, 16, "RelatedLinks",ExpressionUUID->"8244875f-ac75-4aa7-acb8-f4b1e764b97a",
 CellID->41233997],
Cell[30354, 747, 223, 3, 16, "RelatedLinks",ExpressionUUID->"69530202-8dfd-4ac6-8817-66c8d1a4c250",
 CellID->21861404]
}, Open  ]],
Cell[CellGroupData[{
Cell[30614, 755, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"0365fa42-2280-4427-a276-0cd7e0a15cb7",
 CellID->1255426704],
Cell[30727, 758, 797, 20, 18, "SeeAlso",ExpressionUUID->"31405719-961b-4b5e-86a4-0f8f7170b99f",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[31561, 783, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"908afcd1-2781-4f7d-a7cb-3ffaba50ddb9",
 CellID->38303248],
Cell[31676, 786, 101, 1, 16, "MoreAbout",ExpressionUUID->"9f05893d-5286-4394-9e2d-aa01c81e7fc4",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[31814, 792, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"89693007-3e8b-479b-b99a-853916276e18",
 CellID->880084151],
Cell[32228, 805, 196, 3, 25, "Input",ExpressionUUID->"2d060250-2b1b-4ba4-981c-c3e9845deca5",
 CellID->591224332],
Cell[CellGroupData[{
Cell[32449, 812, 175, 3, 25, "Input",ExpressionUUID->"195fbcf2-5f59-4ad9-90dd-ab9c1d159e46",
 CellID->112819423],
Cell[32627, 817, 695, 13, 32, "Print",ExpressionUUID->"ebd63d70-fdbb-4c90-9762-a5e71b23a720",
 CellID->169221442]
}, Open  ]],
Cell[33337, 833, 549, 8, 46, "ExampleText",ExpressionUUID->"c3b56548-75b0-448f-9db5-98924304cdfb",
 CellID->608960559],
Cell[CellGroupData[{
Cell[33911, 845, 549, 14, 62, "Input",ExpressionUUID->"123f17c3-0c02-4389-8f4b-adb97dfadc6b",
 CellID->503921606],
Cell[34463, 861, 782, 16, 36, "Output",ExpressionUUID->"1723c480-9a3c-43fa-a9c5-54f34026eb6a",
 CellID->44469842]
}, Open  ]],
Cell[35260, 880, 349, 6, 33, "ExampleText",ExpressionUUID->"84987cf0-2dd2-4f72-9915-bec0d1a08eca",
 CellID->152882533],
Cell[CellGroupData[{
Cell[35634, 890, 300, 6, 25, "Input",ExpressionUUID->"27191865-a906-45d5-9863-b1d7399baf65",
 CellID->26761357],
Cell[35937, 898, 2358, 56, 66, "Output",ExpressionUUID->"ec324d0a-3e77-4fdb-a13b-043593e6a1a7",
 CellID->637225377]
}, Open  ]],
Cell[38310, 957, 195, 2, 20, "ExampleText",ExpressionUUID->"2d5d6848-5b40-49d4-b75f-bc4a3153cc0d",
 CellID->65608706],
Cell[CellGroupData[{
Cell[38530, 963, 435, 11, 25, "Input",ExpressionUUID->"859397e0-4086-4193-840c-4184f0541448",
 CellID->45746400],
Cell[38968, 976, 2583, 65, 175, "Output",ExpressionUUID->"4078a8ce-6b98-4fba-9025-c4e0048fede2",
 CellID->79845973]
}, Open  ]],
Cell[41566, 1044, 310, 6, 20, "ExampleText",ExpressionUUID->"40936b58-3ef0-4da8-a30b-01633c07419d",
 CellID->200656412],
Cell[CellGroupData[{
Cell[41901, 1054, 779, 21, 44, "Input",ExpressionUUID->"a197f2d2-72c9-4242-8680-bcb0e1a9d228",
 CellID->227212809],
Cell[42683, 1077, 676, 14, 36, "Output",ExpressionUUID->"d1e6c6fb-b08b-48f3-87ee-31177f4d94d3",
 CellID->371279231]
}, Open  ]],
Cell[CellGroupData[{
Cell[43396, 1096, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"c27589b9-8c31-4817-bc05-0b9d11c5d38e",
 CellID->132629673],
Cell[43641, 1103, 964, 22, 52, "ExampleText",ExpressionUUID->"0e2fb971-e099-4b76-b766-383d1823fbf8",
 CellID->191059035],
Cell[44608, 1127, 255, 6, 20, "ExampleText",ExpressionUUID->"86735bef-613c-4116-9f2d-b23d4b475d16",
 CellID->410931534],
Cell[CellGroupData[{
Cell[44888, 1137, 341, 7, 25, "Input",ExpressionUUID->"3d27cf63-5b96-4d1a-b195-9b665b131be9",
 CellID->195590236],
Cell[45232, 1146, 354, 5, 24, "Output",ExpressionUUID->"8576c130-b761-4207-92db-0b69389a0837",
 CellID->637686568]
}, Open  ]],
Cell[45601, 1154, 268, 7, 20, "ExampleText",ExpressionUUID->"b820b2cb-ebd3-4e96-b2e9-b06953f59960",
 CellID->60899087],
Cell[CellGroupData[{
Cell[45894, 1165, 368, 8, 25, "Input",ExpressionUUID->"dfe721fc-7aa5-4b60-b06b-5d8d96969673",
 CellID->266372805],
Cell[46265, 1175, 384, 6, 24, "Output",ExpressionUUID->"d3af40fa-16af-4578-9902-907f5f957355",
 CellID->554657614]
}, Open  ]],
Cell[46664, 1184, 407, 9, 20, "ExampleText",ExpressionUUID->"d73f16d0-8f15-4f24-b792-0f15ae86bdfd",
 CellID->3880389],
Cell[CellGroupData[{
Cell[47096, 1197, 342, 7, 25, "Input",ExpressionUUID->"1b920fa5-b294-4633-85d1-603b75d49c4b",
 CellID->892526679],
Cell[47441, 1206, 402, 6, 24, "Output",ExpressionUUID->"4971c89a-6af0-4d93-864d-c87e2bae2cbc",
 CellID->72288565]
}, Open  ]],
Cell[47858, 1215, 261, 3, 20, "ExampleText",ExpressionUUID->"62041e5a-f799-44a0-83db-4529f45ae910",
 CellID->96931112],
Cell[CellGroupData[{
Cell[48144, 1222, 393, 8, 25, "Input",ExpressionUUID->"bb1c1be1-f431-4743-9550-466f0fa1ad14",
 CellID->777299340],
Cell[48540, 1232, 473, 8, 24, "Output",ExpressionUUID->"a9c9d16e-abd9-448f-a7c6-f684e5c2dd7b",
 CellID->159758570]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49062, 1246, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"cca8e961-7af4-4eee-8795-f63060d14064",
 CellID->285054036],
Cell[49307, 1253, 236, 3, 20, "ExampleText",ExpressionUUID->"3d5d7109-d18e-46b5-ad2e-8cb69e232866",
 CellID->61892426],
Cell[49546, 1258, 284, 7, 20, "ExampleText",ExpressionUUID->"ad77a4ef-982e-4e96-a097-c3a3234d59ac",
 CellID->2019146],
Cell[CellGroupData[{
Cell[49855, 1269, 767, 19, 25, "Input",ExpressionUUID->"2d47d475-be6f-4da9-bb32-b685108a46b4",
 CellID->435711821],
Cell[50625, 1290, 902, 21, 36, "Output",ExpressionUUID->"877caaeb-f7b1-413e-91e5-b9c08dd44984",
 CellID->81624036]
}, Open  ]],
Cell[51542, 1314, 300, 7, 20, "ExampleText",ExpressionUUID->"73a4e4e9-4958-4ac1-a19e-f4eb6b0efe38",
 CellID->815938708],
Cell[CellGroupData[{
Cell[51867, 1325, 644, 16, 25, "Input",ExpressionUUID->"e34e3f96-fe3d-4058-87e3-11e807ce26f7",
 CellID->25079301],
Cell[52514, 1343, 637, 13, 39, "Output",ExpressionUUID->"50047084-dc74-4efc-8036-efdd802e13fe",
 CellID->10518712]
}, Open  ]],
Cell[53166, 1359, 796, 17, 49, "ExampleText",ExpressionUUID->"1d9dd1c4-49f1-4afd-be1b-388cc615c511",
 CellID->351195788],
Cell[CellGroupData[{
Cell[53987, 1380, 422, 11, 25, "Input",ExpressionUUID->"35fbde84-c9d2-402c-a38e-e722a518a3bb",
 CellID->111027185],
Cell[54412, 1393, 365, 7, 33, "Output",ExpressionUUID->"66e78a13-6c56-4292-b93a-c0463ed5e895",
 CellID->127530111]
}, Open  ]],
Cell[CellGroupData[{
Cell[54814, 1405, 471, 12, 25, "Input",ExpressionUUID->"707f39ab-fa6b-4eed-acfb-1fc45e49f67f",
 CellID->26787571],
Cell[55288, 1419, 421, 8, 37, "Output",ExpressionUUID->"1e267afd-1cb1-4330-9843-0be4a7b89dd3",
 CellID->36415600]
}, Open  ]],
Cell[55724, 1430, 360, 6, 33, "ExampleText",ExpressionUUID->"a7e4b148-9628-45ec-b3a7-479f6ba867d7",
 CellID->154551291],
Cell[CellGroupData[{
Cell[56109, 1440, 360, 8, 25, "Input",ExpressionUUID->"fd64d0f2-7636-4687-91c6-19cf1ae0acc0",
 CellID->7945850],
Cell[56472, 1450, 1048, 24, 39, "Output",ExpressionUUID->"a371bcd3-6201-4f55-a355-85861ff4cade",
 CellID->173594750]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57569, 1480, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"36c83fb1-4c54-437c-bd5d-8814e93ec624",
 CellID->185799557],
Cell[57814, 1487, 230, 3, 20, "ExampleText",ExpressionUUID->"cc5d0ea1-9b8f-4d5e-a917-ca9984ed86db",
 CellID->212668633],
Cell[CellGroupData[{
Cell[58069, 1494, 388, 10, 25, "Input",ExpressionUUID->"1048ab1c-1994-4e73-b42b-6619076d6990",
 CellID->24185568],
Cell[58460, 1506, 449, 8, 33, "Output",ExpressionUUID->"b2a147c7-2e31-4e02-8735-f4f2fa2aaa56",
 CellID->957362905]
}, Open  ]],
Cell[CellGroupData[{
Cell[58946, 1519, 414, 10, 25, "Input",ExpressionUUID->"5d5c20db-a12b-4a3f-99a4-11f7788cb788",
 CellID->249972356],
Cell[59363, 1531, 521, 11, 34, "Output",ExpressionUUID->"0324c8f8-e733-47b7-b292-0b8367d82c85",
 CellID->107997273]
}, Open  ]],
Cell[CellGroupData[{
Cell[59921, 1547, 412, 10, 25, "Input",ExpressionUUID->"67871a69-2977-4acb-b493-aa2c4d0e3621",
 CellID->296576850],
Cell[60336, 1559, 526, 11, 34, "Output",ExpressionUUID->"3419fe48-5e09-48f0-ad7f-722df40758f3",
 CellID->136388393]
}, Open  ]],
Cell[60877, 1573, 195, 2, 20, "ExampleText",ExpressionUUID->"b9446424-349b-4930-a922-e06113be55c1",
 CellID->152586563],
Cell[CellGroupData[{
Cell[61097, 1579, 662, 18, 25, "Input",ExpressionUUID->"8a117c9f-89f3-46a8-82d2-8040674860e1",
 CellID->343065636],
Cell[61762, 1599, 2029, 49, 66, "Output",ExpressionUUID->"2a429177-0b92-41c1-bd2b-c9b3698eb198",
 CellID->284691561]
}, Open  ]],
Cell[63806, 1651, 246, 3, 20, "ExampleText",ExpressionUUID->"7ebc9bdc-9c88-407e-bb4a-925e5b9858f6",
 CellID->29485924],
Cell[CellGroupData[{
Cell[64077, 1658, 713, 19, 25, "Input",ExpressionUUID->"88338db0-f135-4001-9160-53f29d17f3ed",
 CellID->102662937],
Cell[64793, 1679, 2056, 49, 66, "Output",ExpressionUUID->"1b0eaacb-1c3a-474d-9737-515ed7a2117f",
 CellID->91888392]
}, Open  ]],
Cell[66864, 1731, 939, 22, 55, "ExampleText",ExpressionUUID->"56182dec-330e-48f1-be1d-ba28f011a608",
 CellID->363923079],
Cell[CellGroupData[{
Cell[67828, 1757, 404, 8, 25, "Input",ExpressionUUID->"8c571c77-04fa-4a31-bc6c-26447557161c",
 CellID->475072060],
Cell[68235, 1767, 894, 21, 36, "Output",ExpressionUUID->"1746098f-0820-4bff-a193-8b71f42f70a9",
 CellID->159499427]
}, Open  ]],
Cell[CellGroupData[{
Cell[69166, 1793, 451, 8, 25, "Input",ExpressionUUID->"9fdb6c33-fbe7-4f46-baed-52a906def0c2",
 CellID->117797973],
Cell[69620, 1803, 845, 20, 36, "Output",ExpressionUUID->"e7f163b5-939c-43ff-84fa-61e934b555a9",
 CellID->214763746]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[70526, 1830, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"e73b4edf-29b4-4653-9e72-e2e368488956",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[70706, 1836, 242, 5, 31, "ExampleSection",ExpressionUUID->"c0755624-9cea-4675-ae3b-300104315e8b",
 CellID->1293636265],
Cell[70951, 1843, 1025, 23, 61, "ExampleText",ExpressionUUID->"13a90149-15a8-41ce-b1c8-6fc0731d9b1c",
 CellID->180608076],
Cell[71979, 1868, 921, 18, 63, "ExampleText",ExpressionUUID->"23fee4c7-653b-40fe-81e9-5de3e68b2857",
 CellID->119064406],
Cell[72903, 1888, 663, 13, 59, "ExampleText",ExpressionUUID->"4ffcb70c-3a85-4efc-abea-2e2f34d28e19",
 CellID->119521226]
}, Open  ]],
Cell[CellGroupData[{
Cell[73603, 1906, 385, 7, 31, "ExampleSection",ExpressionUUID->"32eac6e9-bf76-4beb-bcea-33d8c15f7854",
 CellID->475273132],
Cell[73991, 1915, 785, 12, 72, "ExampleText",ExpressionUUID->"c4c1d602-e695-41ee-ba86-1b78afa9cf2a",
 CellID->510823850],
Cell[74779, 1929, 679, 13, 46, "ExampleText",ExpressionUUID->"ae679ad2-2500-4324-aadb-69fd7575acb8",
 CellID->114975418]
}, Open  ]],
Cell[CellGroupData[{
Cell[75495, 1947, 313, 6, 31, "ExampleSection",ExpressionUUID->"a4873f28-41d2-4b30-ad8c-d221081745a0",
 CellID->1020263627],
Cell[75811, 1955, 1882, 40, 131, "ExampleText",ExpressionUUID->"e0506874-6f00-4754-a032-fd3d8aab1b96",
 CellID->648973893],
Cell[77696, 1997, 519, 12, 39, "ExampleText",ExpressionUUID->"f0a3be43-13e0-4a18-a213-a255b0093055",
 CellID->289794140],
Cell[CellGroupData[{
Cell[78240, 2013, 1068, 27, 116, "Input",ExpressionUUID->"c2f57507-2266-44f0-8eab-9d3ad5d3c490",
 CellID->112066441],
Cell[79311, 2042, 887, 20, 36, "Output",ExpressionUUID->"32625d70-3d34-41a8-82db-6c4e2cb0754d",
 CellID->61669505]
}, Open  ]],
Cell[CellGroupData[{
Cell[80235, 2067, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"d52bc55b-67d0-46f8-8355-fc580b770757",
 CellID->211327390],
Cell[80480, 2074, 665, 15, 51, "ExampleText",ExpressionUUID->"2f3ac7e2-8d25-4852-8e62-4bf56d6d7dee",
 CellID->166007084],
Cell[CellGroupData[{
Cell[81170, 2093, 1258, 35, 98, "Input",ExpressionUUID->"5ea89be3-94ec-4b59-a1cb-68fe97835bd2",
 CellID->257830515],
Cell[82431, 2130, 751, 16, 36, "Output",ExpressionUUID->"3c46f2ec-00d4-4afb-9c4c-de9aba62ea1c",
 CellID->307739585]
}, Open  ]],
Cell[83197, 2149, 444, 9, 23, "ExampleText",ExpressionUUID->"ef8c3dd5-cf9e-42fb-a109-d59d4f14addb",
 CellID->236256670],
Cell[CellGroupData[{
Cell[83666, 2162, 373, 8, 25, "Input",ExpressionUUID->"7b9ed288-3b7d-4389-9987-887f8b88afd3",
 CellID->162194727],
Cell[84042, 2172, 593, 13, 36, "Output",ExpressionUUID->"e5970241-dc3a-474f-9a35-461149599045",
 CellID->184066379]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84684, 2191, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"938a59d7-fbe1-4f5a-8b7f-96065a78b236",
 CellID->231294551],
Cell[84929, 2198, 245, 4, 20, "ExampleText",ExpressionUUID->"cfdf09c2-de18-4aa1-9b33-5ddfe2ed8aca",
 CellID->65128520],
Cell[CellGroupData[{
Cell[85199, 2206, 628, 18, 44, "Input",ExpressionUUID->"7584421f-86c0-48e8-b1cb-b5af7e1c5b91",
 CellID->231909604],
Cell[85830, 2226, 614, 15, 36, "Output",ExpressionUUID->"278bd82b-a6b5-4546-b9eb-b6442527b32b",
 CellID->108402234]
}, Open  ]],
Cell[86459, 2244, 318, 6, 20, "ExampleText",ExpressionUUID->"aca527f2-5086-4d22-8970-01ebe1a12b7a",
 CellID->154841770],
Cell[CellGroupData[{
Cell[86802, 2254, 373, 8, 25, "Input",ExpressionUUID->"4e5c5c3b-fd02-4c9b-9a4f-2dd424b05197",
 CellID->475367137],
Cell[87178, 2264, 612, 13, 36, "Output",ExpressionUUID->"b080a1fa-1d7a-4ea6-81dc-a28cb27b4701",
 CellID->114859655]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87839, 2283, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"2193e246-5fd6-40e5-afc5-a73d3c9ce08c",
 CellID->274678047],
Cell[88084, 2290, 391, 7, 33, "ExampleText",ExpressionUUID->"6e5e9a88-2480-40b5-9fae-3a65b221ac01",
 CellID->654420386],
Cell[CellGroupData[{
Cell[88500, 2301, 275, 6, 25, "Input",ExpressionUUID->"5c4e5496-3ab7-4bce-9d32-1756fb5c424a",
 CellID->268469038],
Cell[88778, 2309, 220, 4, 24, "Output",ExpressionUUID->"47e14705-b14b-471e-b748-336531c96548",
 CellID->130289600]
}, Open  ]],
Cell[CellGroupData[{
Cell[89035, 2318, 326, 7, 25, "Input",ExpressionUUID->"54146806-1403-4016-9178-5d47a1b68399",
 CellID->55473298],
Cell[89364, 2327, 259, 4, 24, "Output",ExpressionUUID->"9e76f240-2c82-46f5-ad9f-656d6c42a3e4",
 CellID->103540500]
}, Open  ]],
Cell[CellGroupData[{
Cell[89660, 2336, 323, 7, 25, "Input",ExpressionUUID->"e2b1e7be-0846-45b5-b0f4-7656f95b16bb",
 CellID->432325858],
Cell[89986, 2345, 227, 4, 24, "Output",ExpressionUUID->"695d6d4c-2fab-4e61-9f0c-6c78edae5269",
 CellID->47507090]
}, Open  ]],
Cell[CellGroupData[{
Cell[90250, 2354, 528, 11, 44, "Input",ExpressionUUID->"8a6548cc-0c74-4409-9104-7acacb7357b7",
 CellID->36623899],
Cell[90781, 2367, 302, 5, 24, "Output",ExpressionUUID->"65159f1f-9bdd-4241-87f9-977707aa5b7c",
 CellID->638260992]
}, Open  ]],
Cell[CellGroupData[{
Cell[91120, 2377, 504, 11, 44, "Input",ExpressionUUID->"8d53d785-d723-48e9-803b-5abaa0ff002d",
 CellID->626303466],
Cell[91627, 2390, 275, 4, 24, "Output",ExpressionUUID->"03f954cd-299a-481d-a259-ddd54854b35a",
 CellID->23937636]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91963, 2401, 225, 5, 31, "ExampleSection",ExpressionUUID->"624a544d-1d45-4860-aae6-debf1759ca67"],
Cell[CellGroupData[{
Cell[92213, 2410, 301, 7, 22, "ExampleSubsection",ExpressionUUID->"207ef6c1-88a0-46c1-b3bc-c8b778361d57"],
Cell[92517, 2419, 449, 7, 46, "ExampleText",ExpressionUUID->"e639489e-12e0-4f3a-abbb-6dd496c900f1",
 CellID->540659062],
Cell[92969, 2428, 271, 5, 20, "ExampleText",ExpressionUUID->"4984ec17-0683-4f16-bd54-527de43646e1",
 CellID->517921585],
Cell[CellGroupData[{
Cell[93265, 2437, 263, 5, 25, "Input",ExpressionUUID->"69ef6a8d-48d6-4885-871e-159a3cb9e8c5",
 CellID->12002135],
Cell[93531, 2444, 244, 4, 24, "Output",ExpressionUUID->"173f4008-0e17-4372-92d8-f2df1e25d016",
 CellID->885116424]
}, Open  ]],
Cell[93790, 2451, 297, 5, 33, "ExampleText",ExpressionUUID->"d4a42567-9a7c-4f48-941e-cc1e0fea9d5d",
 CellID->479995879],
Cell[CellGroupData[{
Cell[94112, 2460, 295, 6, 25, "Input",ExpressionUUID->"f4f7e67d-f9bd-4925-9125-023195229377",
 CellID->633814282],
Cell[94410, 2468, 242, 4, 24, "Output",ExpressionUUID->"d73a236d-40cd-40ca-a49c-22753af3f1c7",
 CellID->908619962]
}, Open  ]],
Cell[94667, 2475, 238, 4, 20, "ExampleText",ExpressionUUID->"f4444f4b-6258-4a91-89d6-8fec76a2c8a5",
 CellID->5653564],
Cell[CellGroupData[{
Cell[94930, 2483, 694, 20, 62, "Input",ExpressionUUID->"f5472c87-f290-4749-969e-6180dfba5b66",
 CellID->8174293],
Cell[95627, 2505, 737, 18, 36, "Output",ExpressionUUID->"b26f8ef8-0d79-4e07-9bdf-5ad35ab0ddc1",
 CellID->432030517]
}, Open  ]],
Cell[CellGroupData[{
Cell[96401, 2528, 299, 7, 25, "Input",ExpressionUUID->"2b5166ef-0d3d-459e-9e72-accc55ae6631",
 CellID->82344146],
Cell[96703, 2537, 432, 10, 35, "Output",ExpressionUUID->"77330be3-bf27-4baf-a044-4b33e2359099",
 CellID->316117934]
}, Open  ]],
Cell[97150, 2550, 580, 12, 35, "ExampleText",ExpressionUUID->"068832d0-dd1b-4bd8-b59f-88c12538f497",
 CellID->2405490],
Cell[CellGroupData[{
Cell[97755, 2566, 384, 9, 31, "Input",ExpressionUUID->"694a6c5a-b30c-4ea6-8363-2067a881e3d9",
 CellID->70836523],
Cell[98142, 2577, 520, 10, 37, "Output",ExpressionUUID->"ec64bf33-a981-4981-b7d1-d70785c4dac8",
 CellID->33576814]
}, Open  ]],
Cell[98677, 2590, 442, 8, 33, "ExampleText",ExpressionUUID->"e421e4c7-1ac9-42b1-a655-f3b144accd73",
 CellID->335340831],
Cell[CellGroupData[{
Cell[99144, 2602, 1158, 28, 80, "Input",ExpressionUUID->"8e1daca5-e0d0-4ceb-93ff-296023901bc2",
 CellID->481075785],
Cell[100305, 2632, 289, 4, 24, "Output",ExpressionUUID->"0e7b6cac-d2fd-4abb-a73d-4c25893acb78",
 CellID->22280790]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100643, 2642, 302, 7, 22, "ExampleSubsection",ExpressionUUID->"29ef1272-1156-45d1-b1f7-4c7954cdd4d5"],
Cell[100948, 2651, 276, 4, 20, "ExampleText",ExpressionUUID->"36385b0f-6fec-4273-917e-97b3bbc0659c",
 CellID->563465235]
}, Open  ]],
Cell[CellGroupData[{
Cell[101261, 2660, 300, 7, 22, "ExampleSubsection",ExpressionUUID->"d302b7ca-9306-4623-813f-5e324effb878"],
Cell[101564, 2669, 656, 10, 59, "ExampleText",ExpressionUUID->"1d716b37-b825-497e-a6e1-808c379ba5b6",
 CellID->370685820]
}, Open  ]],
Cell[CellGroupData[{
Cell[102257, 2684, 304, 7, 22, "ExampleSubsection",ExpressionUUID->"701b1804-8879-4af5-a5cd-c502cc87db1b"],
Cell[102564, 2693, 1026, 25, 51, "ExampleText",ExpressionUUID->"c5e9cddd-68fe-4532-8b41-1c0d643b2fe4",
 CellID->81457293]
}, Open  ]],
Cell[CellGroupData[{
Cell[103627, 2723, 305, 7, 22, "ExampleSubsection",ExpressionUUID->"c914527d-6704-4b30-b212-612a83da7175"],
Cell[103935, 2732, 1119, 24, 68, "ExampleText",ExpressionUUID->"8a2fa777-0851-4592-adbb-184c2c97a868",
 CellID->175538712],
Cell[105057, 2758, 586, 14, 36, "ExampleText",ExpressionUUID->"2f6504b4-4405-41ae-8ed3-f83363e38c56",
 CellID->27212911]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[105692, 2778, 248, 5, 31, "ExampleSection",ExpressionUUID->"68d30e1a-f241-4df1-b41c-9e48de3bb35c",
 CellID->258228157],
Cell[105943, 2785, 461, 8, 46, "ExampleText",ExpressionUUID->"ba0441e1-dbd8-4b0d-984f-7ab32ee363ad",
 CellID->29588054],
Cell[CellGroupData[{
Cell[106429, 2797, 733, 20, 62, "Input",ExpressionUUID->"87e82882-5c7c-4cde-801e-1fef40d1d091",
 CellID->519984638],
Cell[107165, 2819, 452, 10, 34, "Output",ExpressionUUID->"8ed3a129-5b6f-4fe7-8f43-84ad8ef24b76",
 CellID->106693183]
}, Open  ]],
Cell[CellGroupData[{
Cell[107654, 2834, 469, 12, 25, "Input",ExpressionUUID->"f9d24661-29dc-49c4-976e-746a83b98dd6",
 CellID->147331416],
Cell[108126, 2848, 531, 12, 36, "Output",ExpressionUUID->"3d9e4f76-ee2d-4aa2-9f6f-fadd2aace523",
 CellID->167856852]
}, Open  ]],
Cell[CellGroupData[{
Cell[108694, 2865, 470, 12, 25, "Input",ExpressionUUID->"388565fc-51f2-45be-a932-b8395cc89f70",
 CellID->80812962],
Cell[109167, 2879, 424, 10, 34, "Output",ExpressionUUID->"04ff3ff3-9fae-4fe6-9482-385356ef5532",
 CellID->3611114]
}, Open  ]],
Cell[CellGroupData[{
Cell[109628, 2894, 472, 12, 25, "Input",ExpressionUUID->"35874a2c-9417-4561-bf12-2e007f57b46b",
 CellID->653038716],
Cell[110103, 2908, 302, 6, 33, "Output",ExpressionUUID->"9523065c-b590-4300-92da-ef51c926b119",
 CellID->108158507]
}, Open  ]],
Cell[CellGroupData[{
Cell[110442, 2919, 290, 6, 25, "Input",ExpressionUUID->"79a3d8f5-b249-431d-9776-ad7e3e3a4cc7",
 CellID->932205397],
Cell[110735, 2927, 338, 8, 34, "Output",ExpressionUUID->"756579da-e219-4ab7-81cb-fecae57552b5",
 CellID->348418989]
}, Open  ]],
Cell[111088, 2938, 172, 2, 20, "ExampleText",ExpressionUUID->"e4a47fc5-1c4a-49b1-b185-83080aa300bd",
 CellID->8661092]
}, Open  ]],
Cell[CellGroupData[{
Cell[111297, 2945, 391, 7, 31, "ExampleSection",ExpressionUUID->"fddbda8e-80a1-4197-b6e1-8c6febe633eb",
 CellID->2123667759],
Cell[111691, 2954, 998, 22, 61, "ExampleText",ExpressionUUID->"f39a84cd-c070-48b6-9601-9c339d28501f",
 CellID->565963010]
}, Open  ]],
Cell[CellGroupData[{
Cell[112726, 2981, 328, 6, 31, "ExampleSection",ExpressionUUID->"6c7f3288-6576-4af8-93b4-7e6a8edd6b11",
 CellID->224902139],
Cell[113057, 2989, 1168, 26, 77, "ExampleText",ExpressionUUID->"df6b16de-bd71-45dd-892d-9387cd06cfcb",
 CellID->654255733],
Cell[114228, 3017, 779, 18, 88, "ExampleText",ExpressionUUID->"eb54026e-a824-4aa7-9c2f-ff71869dc867",
 CellID->221000941],
Cell[115010, 3037, 241, 5, 16, "ExampleDelimiter",ExpressionUUID->"70db57bc-7d78-4a97-b05c-213289aaaaba",
 CellID->15032368],
Cell[CellGroupData[{
Cell[115276, 3046, 388, 7, 18, "ExampleSubsection",ExpressionUUID->"c2a265c2-c6e8-414e-b7c9-12ca7be539da",
 CellID->437872522],
Cell[115667, 3055, 345, 6, 33, "ExampleText",ExpressionUUID->"eb5b974b-4705-459c-ba06-8a5931042614",
 CellID->244453139],
Cell[CellGroupData[{
Cell[116037, 3065, 348, 7, 25, "Input",ExpressionUUID->"616699a8-cd9a-4d44-8061-1e61df50699f",
 CellID->639279859],
Cell[116388, 3074, 333, 6, 24, "Output",ExpressionUUID->"237f6d5d-2d06-459e-98a7-21ce9d2175e4",
 CellID->106950301]
}, Open  ]],
Cell[116736, 3083, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"325159fc-f819-4a5a-9478-9b26cb2ebadc",
 CellID->179155221]
}, Open  ]],
Cell[CellGroupData[{
Cell[117015, 3093, 383, 7, 22, "ExampleSubsection",ExpressionUUID->"518ab120-b06e-4a63-bf00-7caeb701fcce",
 CellID->322697447],
Cell[117401, 3102, 440, 12, 23, "ExampleText",ExpressionUUID->"f44f56f5-6928-4649-9af4-3efae4089035",
 CellID->336495556],
Cell[117844, 3116, 463, 10, 36, "ExampleText",ExpressionUUID->"75fbd004-c567-4ddd-84ea-86d8de9b5e1e",
 CellID->10789287],
Cell[118310, 3128, 3080, 59, 100, "3ColumnTableMod",ExpressionUUID->"990b4745-1d58-48cb-9925-6d0ecfede189",
 CellID->450279320],
Cell[121393, 3189, 175, 2, 20, "ExampleText",ExpressionUUID->"7b9dea6f-6b72-4a65-a541-890f2c969e68",
 CellID->65467221],
Cell[CellGroupData[{
Cell[121593, 3195, 346, 7, 25, "Input",ExpressionUUID->"be431cf0-96a8-47ea-9e19-755f288a7f5d",
 CellID->69868590],
Cell[121942, 3204, 489, 10, 21, "Message",ExpressionUUID->"b01ebde5-ffb8-4095-8e22-de0aa1e94472",
 CellID->258985906]
}, Open  ]],
Cell[122446, 3217, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"c19874fc-e426-4c9f-a015-e79eedcf5707",
 CellID->147069584]
}, Open  ]],
Cell[CellGroupData[{
Cell[122725, 3227, 333, 6, 22, "ExampleSubsection",ExpressionUUID->"6f4ae236-081a-4e17-b901-0c46413f8df5",
 CellID->707909270],
Cell[123061, 3235, 442, 9, 36, "ExampleText",ExpressionUUID->"bf3a70e4-b6b7-4c40-80f8-2b752608ca8f",
 CellID->440509322],
Cell[123506, 3246, 421, 7, 25, "Input",ExpressionUUID->"8efb7f29-c601-4a94-94c6-90d914a4b339",
 CellID->317777973],
Cell[123930, 3255, 419, 7, 33, "ExampleText",ExpressionUUID->"ea000fbc-23e1-4fc0-9fdd-a0342bf9df60",
 CellID->244578341],
Cell[CellGroupData[{
Cell[124374, 3266, 244, 4, 25, "Input",ExpressionUUID->"07dcee6c-e973-4de4-8817-85d9271bd93c",
 CellID->43219570],
Cell[124621, 3272, 262, 4, 24, "Output",ExpressionUUID->"67b13303-acd1-450c-af83-40726dd4ba0b",
 CellID->12429019]
}, Open  ]],
Cell[124898, 3279, 211, 2, 20, "ExampleText",ExpressionUUID->"3570040e-34d4-4244-8a2d-c78d9192ad4b",
 CellID->95735659],
Cell[CellGroupData[{
Cell[125134, 3285, 294, 6, 25, "Input",ExpressionUUID->"198d3f61-0a1b-434a-ab9e-2dfb4ce82950",
 CellID->21485577],
Cell[125431, 3293, 272, 4, 24, "Output",ExpressionUUID->"ed924adf-7068-4dfa-ab1a-5ea38b223402",
 CellID->154439282]
}, Open  ]],
Cell[125718, 3300, 228, 3, 20, "ExampleText",ExpressionUUID->"aa61f22b-44fc-4a59-9f32-0210cdcad953",
 CellID->275814129],
Cell[CellGroupData[{
Cell[125971, 3307, 361, 6, 25, "Input",ExpressionUUID->"4ee44c6f-765f-46ae-9cd7-f6f6b54a6952",
 CellID->64234814],
Cell[126335, 3315, 489, 10, 21, "Message",ExpressionUUID->"19737e99-86f2-4322-8cfc-67abfd372c10",
 CellID->103953610]
}, Open  ]],
Cell[126839, 3328, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"b2f4529f-b8b1-45c0-8abb-298ac5265e80",
 CellID->173756800]
}, Open  ]],
Cell[CellGroupData[{
Cell[127118, 3338, 383, 7, 22, "ExampleSubsection",ExpressionUUID->"0b98b1de-e613-4005-a628-d6dfab80d9bc",
 CellID->143918462],
Cell[127504, 3347, 256, 5, 20, "ExampleText",ExpressionUUID->"32ee1282-2f30-4092-a1b0-fab9c0d5a411",
 CellID->134642702],
Cell[CellGroupData[{
Cell[127785, 3356, 316, 7, 25, "Input",ExpressionUUID->"7416c4d3-cc26-4601-ba72-fe93a6187c76",
 CellID->38576865],
Cell[128104, 3365, 467, 8, 19, "Message",ExpressionUUID->"d268ed43-95be-4d5f-9b3b-0349e5eb80f0",
 CellID->9482838]
}, Open  ]],
Cell[CellGroupData[{
Cell[128608, 3378, 226, 5, 25, "Input",ExpressionUUID->"06e201e4-4d6a-4731-aa1e-6f5d2835ec00",
 CellID->99754731],
Cell[128837, 3385, 253, 4, 24, "Output",ExpressionUUID->"c3274e20-dd49-406c-ad1a-fbdd991da197",
 CellID->63170197]
}, Open  ]],
Cell[129105, 3392, 241, 5, 16, "ExampleDelimiter",ExpressionUUID->"0973223a-3ab4-4c80-9973-886e45e6e4d0",
 CellID->31568737]
}, Open  ]],
Cell[CellGroupData[{
Cell[129383, 3402, 318, 6, 22, "ExampleSubsection",ExpressionUUID->"3712d2ab-4046-4186-9dd3-6cc0a1a12285",
 CellID->267651956],
Cell[129704, 3410, 929, 20, 65, "ExampleText",ExpressionUUID->"d3811591-ed0a-49a0-a356-5445c7086152",
 CellID->135705949],
Cell[130636, 3432, 270, 5, 20, "ExampleText",ExpressionUUID->"3e0104b2-b1fe-4080-b6a2-f80db004f81f",
 CellID->241690552],
Cell[CellGroupData[{
Cell[130931, 3441, 296, 6, 25, "Input",ExpressionUUID->"d4df2cdd-8144-4854-80fe-6dc0e174aaf7",
 CellID->561106203],
Cell[131230, 3449, 438, 9, 21, "Message",ExpressionUUID->"0b8c6e66-6911-4be1-8379-6918b3944f12",
 CellID->184193734]
}, Open  ]],
Cell[CellGroupData[{
Cell[131705, 3463, 269, 5, 25, "Input",ExpressionUUID->"d934297a-4508-4a4b-a4a6-da81cbec779e",
 CellID->172974039],
Cell[131977, 3470, 424, 7, 24, "Output",ExpressionUUID->"7c565b80-4eb1-44f3-bb74-cc6994c10d27",
 CellID->311256720]
}, Open  ]],
Cell[CellGroupData[{
Cell[132438, 3482, 293, 6, 25, "Input",ExpressionUUID->"06e40669-b685-4d84-81fd-4c4d563d3c47",
 CellID->4717292],
Cell[132734, 3490, 253, 4, 24, "Output",ExpressionUUID->"bba170c2-193b-424a-99b7-d467c8561701",
 CellID->39702558]
}, Open  ]],
Cell[CellGroupData[{
Cell[133024, 3499, 413, 9, 25, "Input",ExpressionUUID->"5709fd4f-6fdd-483e-ac02-65c08257a2a8",
 CellID->481169655],
Cell[133440, 3510, 544, 11, 21, "Message",ExpressionUUID->"69bcdea3-4dc1-4c14-9924-0e588c1e45a0",
 CellID->12372063]
}, Open  ]],
Cell[133999, 3524, 281, 6, 20, "ExampleText",ExpressionUUID->"d8049fb5-342d-48b7-9c9d-7ec65b2202c1",
 CellID->258331605],
Cell[CellGroupData[{
Cell[134305, 3534, 317, 7, 25, "Input",ExpressionUUID->"7eca2eba-9d6f-4ae1-8ab6-d99207fe4be9",
 CellID->502525237],
Cell[134625, 3543, 467, 8, 19, "Message",ExpressionUUID->"9d5bd282-9d29-4bd8-a7b8-1a24bd6155f7",
 CellID->168581335]
}, Open  ]],
Cell[CellGroupData[{
Cell[135129, 3556, 227, 5, 25, "Input",ExpressionUUID->"bb78fee9-f1cd-4a30-b883-bfca097e9f75",
 CellID->150939051],
Cell[135359, 3563, 252, 4, 24, "Output",ExpressionUUID->"2294867b-80ab-4d98-8a19-c2f1e5c2e9c6",
 CellID->986650257]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[135672, 3574, 252, 5, 31, "ExampleSection",ExpressionUUID->"8a312181-3daa-4bbb-9a70-e8612f3ad263",
 CellID->1305812373],
Cell[135927, 3581, 532, 13, 35, "ExampleText",ExpressionUUID->"3d52b195-6b3b-4603-9151-06950f021988",
 CellID->490768203]
}, Open  ]],
Cell[136474, 3597, 257, 5, 31, "ExampleSection",ExpressionUUID->"1e26837d-54be-49a3-9303-f010fc6677b0",
 CellID->1653164318],
Cell[136734, 3604, 249, 5, 19, "ExampleSection",ExpressionUUID->"6e6ce648-e048-406f-8405-47387ff8b508",
 CellID->589267740]
}, Open  ]]
}
]
*)

